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(jxo JxiijLUUUOJI (JT>J0)IJ0 Ud>£l 

Huh nn'i 

(jxlglll jQ^jgJo^g dlsuiu (jg^il cjllill liifc jol^j-^SU <jl Uj_uulj 

.dLuuuu Jlg^ioll g^n y> jaJL: <jt-Q 

£U*jjljuoJI 'QjQ3j Cjl^j c/uLiog ^ (J^iiu ljIi^JI li^ (gJJUol jcu 

c/updl (jigl^joJI rljjJJ qjuju^JL fiiJI_Q-ij-oJI# opUjo (Jj0u6 q/lcI^jJJI 

(jl qJUI JLuulI .oiijOjjJI JI^jo q/lq oJqijuljjoJI ojinJolll Ljuiilb 
(Jul3jo^jjoJI (Jjo jjljL^JI Oljlsio jjgJall (gjjJoJI coilo Jbcxidl liiH 

.QulC^jjoJI 

gucxiajo <jxII LogJgi^jLJLI cllf^iiiuo gjalax) jjo JgaiU JbasaJg 

.Isi) gJuuO 


ojbJI Lu lpj 

JjOlslII <gjj_6 










QjO^QjoJI 



oLojOjjJI jaJLc (/id OlsdLJI (jigiiig (/I3 l3| (jo llgpin I daJ jjlsu 

cliail (/id /xaluuJ i/llIIq jg^jug Cidg-ixigjiilo cilu coi <Jxx2J (/nil 
_p^\i (_TUJI OjjudJIg oKmg'inllg njiortll ^joljjJIg OLeluJq 1)I jjgiU'g 
JlggidJIg .djjlpill oLLosJI <jjo ajjxszJI ^jjjjuu' (Jhl <jjo (JxxaJI (gguu 
cJUiJ (jipl)l opojaJI OlsJ (jn^s?) Lsiszjo (JjoLsiII (Jhujuu ddJ cJLum 
dJgsmuu ddliiuodl olidJI qx> (jaiuju (/if lalao Jbolsju q! (/icu 

: qjJUI pbujiU 

f * i 11Vi n 11 

Lo fi nil pjLQj'g <Lsu cuolAJI dloKioJI jjgJaiJI dim jd rT>6j<?v LsuLI 
pjjju £jo ^jlgj'g Jlg^g dpjojj j_olgl qjd djladJI q 7qj ; 11 aJggiiaj 
clujul jz d ojpJI l-iLujul^I (joJlllUg .Isud doAdlujuaJI olg^Illg ^iLoill 
.dun bill dJill cpjop Jio dhuugloJIg qjiq^H oldjakiillg ^joIjjJI 

,jiK niQinll 

6 <~>j 111 (jio djcndi'n gi nlgjo cjnJI (Lpgj oj_dd jolSiJ LsulJ 

<"ii niiKi rluLiJg .DataBases oUluJI :mlgd .plidj £jo JIujDU 
.lap: 9 qjjjjluJI pjIgjoJI ojbl jjoljjg daubmll jjoIjj Jlo d-jcnn'io 

(jjuOAajinlJ 

npnj.Q dlum JlggidJI (/id didljlaJJI dlrsjjo (/ill (jg I (/jdJI 
.(_jug gdlgjo cbjuLij (/ill ddbdJJU ojidsmll jjoljjJIg OldjuJoill 
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JgLl (jJuj^JI 

(Programming Languages) oqjojJI olaJ ^Igjl 
(Visual Basic Language) dLmj Jlg^inll did j q^v J^I>jo 

(Terms) djauluul dxcuojj oLiiLucuo 3 

(Types of Variables) oIjjl 2 LoJI ^Igjl 4 

( Variable and Constants) CulgUlg CjIjasloJI lqjjsj 5 


C/Lilill (JJUJ 2>JI 


cJLluju Jlg^inll gjolijj Cjuuju QjlIU^ 
cJLujulj JIq^aoII gjolijj osiDlg 

cJLuuuu JIq^aoII jjgJoJ dlu (ji_6 djajuuujJI jgljIq-oJI 
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2 
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Jglll <jJuj:iJI 

0 

(Tool Box" /><"vvll olg^l 

0 

(Properties of Tool Box)ja£iiJI olg^l 

0 

(Form) QjLogiujJI jD^inujuaJI asnlg 


(jTJllll (jjuj^JI 

© 

(Codes' qjl^jojjJI jjolgiJI cLli^ qjlqjl^ i/lLc rilnuKv 

LSbCubciiig /><->■ II olg^Jj 


© 

© 

0 



ClxJUUI (JjqxlII 


Jglll (jJuj^JI 

(Conditional Function) ojJojjjuJI dJI^JI 
(Select Case) dJI^JI 

(JTJIUI (JJUJ^JI 


(Repetition or Looping) a_»jl>^iJI dJI^JI 








JglJI (JjujjJI 
(VaL Function) oJI^JI 
(Mod Function) dJI^JI 

(/Lilill (JJUjjJI 
(Array) I'llngn^nll 




(jjuuolAJI J^nl l 


Jglll (JJUjjJI 

JlgrunJI t/io Jlg^JIg Olg^I i/lLc ("ilnnKv 

(jUllll (jJUj^JI 

j JlgrunJI t/iQ ciOil'Sn »<">■ olg^I (jiic olnuh? 










cuojLill 












UT-Q ljU^JI lia diivUuu . dLlJUUU Jlg^iflll jOJLc t/LQ CL Ipjjo 

o g K Si d ghS .dLujuu Jl g~wnl l dab ngnjill CjLjlujLujI cjiin LQjalU dJbj 
funij' (jill bgo9 ojjo JgJJ cJjla^ c/ilc ouoij'g gjob»JI Cmb' dkdd qjd 
dJLaiuoJI Obi^ill (Jjo dcgjogjo gx> dbojy oojlQjcJI oldjuJcuJI qjd cicgocuo 
.qjluuUjuIJI oljlSLoil dblml^j qjo -idlillg cbjlsio (JiboJ qjLsu (/iq 

. nollKnllg oal/dJU jjuulI gSLQ .dujjlouoJb /UajuLuj LjlldJI Ida) (/IQ 

.dJhjJU bl ^Xuul db (jCilAJI ejgjjul^JI jl£lD jjmI 

T CiuJLjy JlgQuuill (/la) lo 9 T ngoj;!! (/la) lo : IsjO OjIqJI (/IQ 

? I^jqKv Jaljjo (/ia) lo 9 









(QjlmjuJ 


















cJLluju Jlggidll £joUjj Cjuujju duQjd 


Jlg^udill JjoUjj Jjiamj' doirjlg 

dLuuuu 

J ;Q K I CLLU (JTD QjgjULUjJI jCulgAJI 
dLuuuu Jlg^inll 
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t/ULuJI cUJj^JI 


CjulgjJIg Olju£loJI LCuySU 

(Variable and Constants) 

oljjiitfjoJI £lgjl 

(Types of Variables) 

£. 

QjluuLuuI ClOjOjj ('ihlh^n 



dLuuuu JIqq.qII did jg Kv (J^Ijjo 

(Visual Basic Language) 

dgojull olid £lgjl 
(Programming Language) 
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J9LI (JUj^JI 















oojojjJI olid clgil 
Programming Languages 



: (Machine Language) dJJJI did .1 

Qg^j jgjojj (JLolD' 9 ojjLLud (jilill LJuubJI lanarn (juJl daUi t /ia 
dpjpjj jjolgl (J<miv (juJl Binary language (0.1) (JLo olop gl jlrual 

CjlDqJI (JjO jjdUl tQjalmjg QpOjjJI CllaJ LjlSj^I QjO jjjLffJQ LjgjJLlOl Ifflnfflnj 

.LSLlZUDJJ 3±£ 


: (Assembly or Language) ^joojoJI did .2 

(j jo Qjjjii dpojj dab c_juO Op ^joIjjJLJ Olcojio (j£ ojIlc <jiss 

daUI oiJb j-fi^j ’9 .oJill Q-slI c/tll IsDuoqjIj oIslocloJI o.ia jDghJg QjjjdbLlUl 
jgjOjJI oaJ (Jjuo JJLlLq oa^io CjulQj IdUL^J idJill aid Quo 0 j 6 gl g In mil 

. assembly Language 

: (High Level Language) <_ngiuuuoJI dJL: olid .3 

eUiJ jjjuuJI daJ (Jjo clujxi dsUg (/iplll olaJLIb dJjldo Ip qJLSluj da) gis> 
(jill gilpj Ug djnjill olaJ (jigdl qjo (jiag (jigjiuuuoJI dJU: daJ CjuuOluj 
laugojj jab loalcg olaJJI qjlqj <JLLo ojjul^ dpjojj jjolgt gt Cilagi djlli 
Jgao 9I jappLo nKmlgi LjgjjubJI l^nan. (jO qJJJ| d&J (/ill laJLigPi' i_pj 
dJJJI daJ (jilj (jigijjuuoJI dJln q OlaJ Jgp» Op convertei cjuxuju 
dLujuu JlgapJI daJg C++g C daJ (jiglumJI aJlaJI OlaDI dLLol (J09 Ik, 

. Visual Basic 
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Jlg^uddl aaJ jqKt JdIjjo 

(Visual Basic) dLuuuy 



<jt_q Ojah (jUll dLuuuy dal <ji2> dLuuuy Jlgrud dal 

(Dartmouth) digtoujb diK 




JlgrudJI daJ jgab 
oj (Jllc dLuuuy 


c/ii n i j (jga jjjjd t>ulogj' 

John Kemeny Thomas Kurtz 


jo 1963 


qlX) ddilo Q-Cjjjuu cJLuuuu oJIgj^uLoJI dal 
I da ^jLc copy joJ Jb q^jojJI olaJ (Jam I g jam! 
^SiIsjoJI (jTQ (jjujpJ cLuOudLaj daLd Cx^nnld c juimp 
Lajlujuul g olajobJIg oLJLdJI g 

rildnKnl l £jo joul^JI j gKil l { jiq daJLII oia Oddi 
jl^^ill <jld g LollbLuju g lajohdlml dJgam cjiJLc 

daJLII od 5 lJ Jglll 

cJLuuuu Jlg^xpll daJ <juo (/Ulill jlduoJJI jgaJd 


cJLuuuu Jlg^ioJI daJ <juo cJUJI jl^olJI jgah 


otuauuJI 

jo 1991 

jo 1992 
jo 1993 



























.Lsllo ojjul^ oljl^jdj CjLLQlgJ CLQgJI cJUis <jjo 


asj (JlLc GuOi <Jli)l ("'IjiqKiII QjO ojoaJI isug 

cJLujuli Jig Tu n )l 

ijxLc Jxxilu i/iiJIg utjjjoJI cLliuj JlgiudJI jIojqI .pi 
t/muJIg Visual Basic.Net ou ogo dLuuuy JlgruoJI 
^j^szJIg ASP.Net 9 C+-i<jjuL (juL (juuJIg C #(_»jLuj 

j ig Kill olaJ (jjo 

lital (jlD jjl^Ld jjl^ (JTjjjoJI cJLujuuJI Jlg^uaJI jjgJaj' jou 

j .!9 KyII o.i. 1 .) (jnJI (JTjjjqJI cJLujluJI Jig tv. 6 II JgjQg 
Microsoft 9 jojuiu. 1 l Jlgoto ooguigjiilo 

. Visual Studio Express 


jd 2005 


jd 2008 


jd 2010 


jd 2014 


(Visual Basic) cLulu Jlgojoll 


j 0 32u.iiijoJI dsolg yjdszjg (jigiLJuuoJI jJlc a^oj-Jl CjIslI qjd dssJg QjjjgJoj otal (jra 
epgojg .c_jug olein kv/g djujjoJI gjoljJIg oIqjuJqiII ^LxjJJ joaaXijuJ (jnll Qjuog_uujJI 
ojcnhll djltf LuJLc (Jsluuu q/LLH ojiHlAJI oa^jQjjJI jjolglllg oI^IacJJI (juo ajassJI c/iic 
dUd^g jg^ijgJI jolkdj c" 0 / Jbcxstf (jiill gjoljJI jouuouQjg (/lajojjJI jjolll gl qojojJI 
Aic cio In ill o^Uj (jiJLc dsdJI oda Aclujug .Ljug giilgjo (jiJLc (Jxxs^j (jiLlI 2 joIjjJI 
JdolioJIg .CjujJLiUI ^joljjg oULuJI ah lg_dj o cS l^?Xx\JI ^joIjjJI do Id ^joIjjJI jouuoloJ 
^\fDim cJULq cJLuuuu (JlgAuaiJU doldJI jjgjQill diu joKdlml (jiJLc ^{jslj IjoaJLc qjI 
(JjulL jjulL (jTuuJI dUidg ljjLjlj (JUjuJI £jo Olg^JJI jno j jpKdXml (jiJLc Ij^Lo 
. Microsoft Visual Studio <jt 6 dooLoJI jjghxll olg^l qjd lading 
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£ 

n 11 ml m l rii^n ji ("i hlhnn 


: (Code) dpjojJI ojiuldl gl 39UI 


dhuulgj ( ii<v (joJ <Jiuj (/lie jjgqjjodJU < j \ Kov 0 iiiojj jjoIqI (Jlc ojLc 9a 
(JTjOluju ja^jJLo lajinn 1 (/ixllg cJLu.iju (JlgoanJI ciab q »j;II OlaJ (jx> dsJ 
39^ obi gl ciihni oobg gt jdj9q Jilg pgjujaUl loUvanJ (Compiler) 
.Objects olub (/ill Iolujlqjo 39IJI oq ^ j . oiig .eiwju JI99JLOJI t/IQ CL) (jQb 
.Events dlobt 9 .Procedures oldjolg .Functions ^jlgj gf oUbg 


: (Object) o^l 


.oblj^l o^c oJ tjQ^g Button jjJI JJuo jCL^aj' obi L0jj-S2j qq<; :xo 



(Procedure) dplJI 



3 


obl (jiJLc jiiilb Qjsld 0^3 pcW/ ^JLc ^joU^JI L &\c \u oULolc gl qjlLolc gin 

.gjolijJI (ji6 Button jjJI 



(Event) Cj^iJI 



4 


obi (/lie >djJb /lojclolII ^jolijjJU /M'Yimnll qj .pgiit (Jslo (>c ojlu: 9a 
gl (jjuglcdl db/ij' (/Ha gt Text Box (joi gjpo (/lq (joi jjuid' gl Button jjJI 

.oj (gialoJI dpJJI funij onn ljiQ ojlnJI 
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(Constants) OulgUI 



11 0^9 J<iiii oULu LoIjlq <jjiu oj^liJI <jtq ^lgx> <Jl£ ojLa c/ia 

c/LQ Oi^V. 0 l (J^Aj JJLjuOlQ .^joUj-JI \iC\li rliJ ‘1 IEHAjlQ Q^Aj 

jOLZ^jjuoJI <jlQ ISijjyL^j J9I3 (j[9 iSlyuStJ 01K11111 JJ cii£j 1 QjOulaJI COfll CjuUlII 

. ^joUjjJI \1c\1i rLul Gibb qJLuuj JLuujj 


(Variables) oljjiajuoJI 




CjLogjo JLiiLu oULuJI <jjAj' oj^IqJI (Jlq giilgjo <jn ojLc (jra oIjjl^loJI 
(JTQ Ol (Jl^Ou JJLjuOlQ .gjOlijjJI QjlQJu’ rLul IfftLOuiQ (JiA^jg 

jjl^loJI qla ^djJLlu c/ixH QjouLoJIg 2 o a a q 11 o)iv. 1 qjoulqJI Varl jjls^uoJI 

JOU QjOulQ }^\ (JToi 


0^UI JjOjjjoJI CjuLq ib' 



















oIjjL&juoJI £lgjl 
(Types oF Variables) 





jjl&LoJI £gJ 

byte 1 

LQ 9 P Jinj 

String 

byte 2 

^|^_cl Jlcj 

Integer 

byte 8 

j 9 jjul^ gl JLi^lgi) oli jdLqjI <Jjuou 

Double 

byte 1 

(False) cilhh .(True) n-\i-\n iqjJjollq Jjuoj 

Boolean 

byte 4 

Jbg k> yn Jjuoj 

Long 

byte 1 

(JjuOu 

Short 

byte 1 

hnn A^lg LQp Jjuoj 

Char 

byte 1 

(255 c/UI 0) quu Lo hoo opgjo jould JjuOu 

Byte 

byte 8 

CiiigJIg jjjllll Jjuou 

Date 

Single 4 

olnloJI 5S& o^lg culiu ^^ jjlc JLLou 

byte 

- 

qjjjjulslII joLqjJJI Jjuou 

Decimal 


ijjL^juoJI .aidI ^JLc IslcIuI cjgu c/iiJI ksgjiuJI 

(...,A,B, ... or 3 ,b ) .’<Jio (c/iJaJL^jI) (_/rjL^Si cojuj Iojj 1 
(.....!.? ) :<JLo doliv oloULc <jlLc cjiglnj U <jl 2 
diiio t/io ahgnajoJI CjIoJKJI ,jjd jxluJJI lia 09^. -U 0^ 3 

. lajjicg 6nd , Byte, If, Dim Jlo dLuuuj Jlg^ihll 

.Logp g jolojl (jn^V; <jl .auuUU o^jOu 4 



















idLuuuu Jlg^uinJI jig ^g£JI qjIi^ ^JLc oIjjl£ioJI 9 OulgUI cajj^J 

iCjuUII 6-xcIq 
(C onst) :<jia LajjaiJI cLodb 

Const CN as DataType = Data (Value) 

Const + (CjuUUI jolluI) as (CjuUUI joujuI) = ( CjuUUI ojxxh) 

CIV QjuUUI djCunJI gl CjuUUI auiUI 

Data Type : oUUJI cgj 
: Jlio 

Const Cl as Integer = 1 

:^g£j| cbltf ajLc oljjigjuoJI cqjj^zj 2 

(jjugjolo (jXQ clp lqj^lo jjlc jcluuI og^j jjlsIoJI 

.dLuuuu Jl Q~y nl l 
(Dim) :c/ia ui|> 2 iJI dnK 

Const + (jjL^jucJI jmil) as (jasLoJI jujuI) = (jasLoJI Qjcuo) 

:oArln)l 

Dim Varl as DataType = Data 

Varl jJLajuoJI jm>l 
:JUUo 

Dim Student as string = "Sheikha” 

(JjuIlLqI (jiioILc qjj 'string" £gj qjs jjl&ioJI b[ 

TjjLgjuoJI (/LQ CililuJI (jjjbi (J^ni uqjl^ 

:oArln)l 

"djpjoJI CililuJI t/igluyy jjl4i.o.H" /arl = Data 

:JUUo 

<r^~>'ill obi (/lo CililuJI Qjiij jjLgJuoJI = textboxl.Text 

."TextBox (jcij gjpo <jic.zj (/uJI 

:oIjjl<?JuoJI £lgjl LQjjSij (jiJLc (jipi3 dilof 
Dim age As Integer = 25 
Dim abc As Boolean = True 
Dim PI As Double = 3.14 






















JlgOADJI ^jolijj Cjuuju OJLiilj 

(jiJLl ljujuLiJI (jiJLc dLuuuu 


CJUUI OJUjjJI 


Windows (JuamlJI jolkiij Cui? (Jxxfijg dLuuuu JlgiunJI guoUp <giilgi! 

.Windows 8. Windows 7. Windows XP. Windows Vista I <J tD 

odgial (Jjo JJ pgjujodJl jiao i/ilc dLmuu (JlgrunJI ^joUjj Cmill (jTJlilLg 

.(Windows) JuamiJI .plldj cjik: 



(Cjuuju) t OSLiLoJI t"ilQK'SII 

(_njomujJl ^dgjoJI cjnJI jXb CjujUUI (jio duidl JJJd ^jo 

:c_/tJIuJI JcijIjJI JUd qjo 2010 dLuuuu JlgnunJI gjoUp (JuouiiJ 

http://www.microsoFt.com/visualstudio/eng/ 

downloads#d-2010-express 


.^OQjoJI (J1Q gjoUpJU nnloTnll JjjjuJI Oljlp QJD dcgjOOjO 
. Visuai Basic Express 2010 dLuuuu Jlg^nll gjoUp jLifjl .pjyg 
.Engiish :(JLo oldJ c/i^il jludl jai» jti 



































Visual Basic 2010 Express 

Build custom applications in Visual Basic a fast and easy way to 
create .NET Framework-based Windows applications. Programs 
written in Visual Basic benefit from security and language 
interoperability. After installation, you can try this product for up to 
30 days. You must register to obtain a free product key for ongoing 
use after 30 days. 

Download language 

English ▼ 



vb_web.) lqIcJI Jj>hJ Install now (/iJLc jti 

(Setup) gjoLijJI CmU lqJLo c/lLc (jigioj c/iiJI (exe 
gJouu (jiLc 0^9 jlsm (jia lqJLoJI giigjo 

Save File” or “Save” to save”) jj jliiivl JlJLi LjjiioJI 

. (the file 





































. ^joUjjJI Cndd ("<IqK-s Jlodjg dsplLoJ Run jj (/ilc Ko^l l /d 

(_/iJLc KoAI I JJJLa (jjo dLujuu JlgiuaJI gjoLp Cmlll lqLoJI 0lo jnli /d 
. Next jjJI jluiolg CjuluIII clou la gioJ (Setup) < hln 

JlgrunJI guolpj nnloinII 'License Terms^ t/ilc nnnignii fii> /d 
I have read and accept the ijtciJI </ile >qjJI JULiv qx> dLuwu 

.Next jj </ile >qjJI /d. license terms 

i"i ln r> lgng qcuLico { jT'O; c/iJLc (jiglaj (/laJI lqJLoJI jtuiijl jnli dUi zsu 
^pjboiiJI J^ (jiLc t/igioj t/iidl lqJLoJI jLulzxI 9! dLmuu Jig? ■ nil gjoU^j 
:jUilJI (Jlic JaiijdlJI JULa QX) gjoUpU (/IpJJI Cilnnjnllg ("i lnrd gnllg 

. Microsoft Silver Light 

c/iic gjolpJI Clujj lqJLo Jduia jUli^lg .Next c/iJLc kiajcdl jad 

.Install jj c/lLc piiJI jed C lqJLoJI JJuo pg-ujodJl jlsm 

^joUjjJI £j 0 nnnjnll oljtpJIg OloloJI ^juOO CmJu Jlfludl (/ill jUoliUI 

(Setup Complete) CmjuJI Jloui^l zsu Exit jpl (jiic pidl /d 
/djg pgjLjjaUl jlsi? (/ilc liduo dLuuuu JlgeudJI gjolp gjjQj (/illilbg 

.(Start) qjqJLqJI (po opulp) anio 








































£joUjj JjLamj d£^l9 

cJLuuuj Jl g^inl l 




^9j±Luo 0inJ 

j-QjJIg gjolljJI c/iJ-cl c/LQ ^QgQjoJI jololxxJI JqjjjIj (JlX) File oJliill jUl6l jouy 
0 i£j ^JLc ojjjulijo ^gggjo jLiiJI \sih 09^. ^9 Project jlp Jgl <jilc 

. j-uuuill ljuLlII q/lq ^joUjjJI 



Windows application >> Windows form application ^gjoaJI jUidI jcuj 

.qjuoqjjujJI gl cuniJI ^joIjjJI jnuuanlj <^pliioJI 


■HI Windows Forms i 
[T^P] VVPF Application 
‘fl Console Applicat 
fl/nl Class Libras 
r^l WPF Browser Ap, 
v b| Empty Project 
^ “ 


SH WPF 
^ — 


= 5 > 











































Windows Form Application (ijjuku jtu6l sin 

9I (Form) QjuoguujJI .pvSimnll da^lg (pnalig gjoli>dl .nin^vv 0ini 

. gJLlllu (Jlggm II j i g Kv qJju c"il ig^n c/loIj g£> QjlujlujJI dililuJI 


» 



File 

Edit View Project Build 

Debug Team 

Dat 


New 


► 


Open 


► 


Add 


► 


Close 



si 

Close Solution 



A 

Save Forml.vb 

Ctrl+S 


Save Forml.vb As... 

4 

Save All 

Ctrl+Shift+S 



Export Template... 




Source Control 


► 


(_/lJLc 0J>b (J.C jXb 

Save c/iic KoySM File >> Save All 













































Qjuu (jTQ dmjuJjJI joJlg_oJI 
JlgamJI ^oUjj jjgJaJ 
cJLuuuu 


: joLsloJI kiijjij 


<jib 09^.9 d? 6^r>9JoJI gjoUjoJI (joJU^b jdLlqJLJ JcujxlJI lia j>abjini.; 

.gjolgdl dniLO t/iJLcI 


: 


File Edit View Project Build Debug Team Data Format Tools Architecture Test Analyze Window Help 

laid Jl- A J . a.lHI'S'S ■ “<* ’43’- » - , -*gi 


Solution Explorer 


Ql jiiiisa A 

Solution 'Forml' (1 project) 
d ^ Forml 

My Project 
1 Forml.vb 


EE 


- j Solution Ex.. 


Team Explo.. 


Toolbox 


▼ -0 X 

t> All Windows Forms 

- 

a Common Controls 


* 

Pointer 


® 

Button 


0 

CheckBox 


13 

CheckedListBox 


H 

ComboBox 


IS 

DateTimePicker 


A 

Label 


A 

LinkLabel 


0 

ListBox 


||* 

ListView 


0 

MaskedTextBox 


Is! 

MonthCalendar 



Notifylcon 



NumericUpDown 


-d. 

PictureBox 



:SoLutlon Explorer 


oLulDl 9 j jqUszJI oxuloJI oia gjbgi 
Jjuo db tpLill gQjjjmJI jib Qjooiauuuodl 
ggjjjuuoJI jib CjuOuouq <jilJI .pjgiJI 
(jjo (jxuiJI cjubJI jib qjqjLqJI oia oggig 

. gjolijJI ckrn^i 


(ToolBox) ja^jJI olg^l JojjjJu 


dniiboJI Olgd ^loo (jxubjj (jiiJI gSl 

fi I'Siiiinll CLS0I9 jib Isnlplg Ifljjoh'SiinI jcuu gilll 
qxslo (9»;Hv ninAi ,Jg| qx) (Form) QjuogjjuJI 
.Louie nnojiJI jjolgJJI iuAiig 















































wnm H sdvu) 


:(Propertles) (joJloiJI oiiiU 


Properties • 9 X 

I orml System.Windows.Form*.Fo - 

:: ).i | u ✓ i 

> AutoSc r o I IM« 0.0 | ** : 

AutoScrollMir O. 0 
AutoSiza False 

AutoSueMod GrovwOnty 
AutoValidate EnablcPreventFr 
BackColor Control 

Bat kqtoundlr | | (none) 

Batkgroundlr Tile 
CencelButton (none) 
CauwiVaIkM True 
Context Menu (none) 

C ontrolBor True 
Cursor Default 




c/iiJIg /v<^ill olg.il Oljjuouog (jolLaa (j6>c cmilo t/ia 
jajuojaj cliji .n<^v obi (/il (jculcb hir> (jiLc irlmi 
tP^aJg .(/n ojj jjo! gl ^g^ djli^ d^bJI (jg^ gjoUjjJI 
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JUb (Jjo j jJI obt (joJlicb jjuigj (j-^jOug . <gjuJcuJI gt ^dOlijxJI (Jpuii dut 
oia (jiJLc qJLLoJJI <>og .^jolijJI <jlq (joibabJI doulo 
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.(Popup. Standard. System 
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jobaxll obi Cub bl Lollq joa'Siiui 6 a nb (jia : (Enabled) joK^SaiajUI qjlIjLq 
<jlo ib^Ui’ : JUuoJI Jjlluj (jiJLc .jD^biuuuoJI { Jxh qjd U gl jdIvSiiijIU qJLjLq 
cJLbjou JJ qjJLc Cjiij Lcxsix) <jgJ Qjslo jj obi (jiJLc liio ^joIjjJI (ji^l 

Lo^Jlc IqjIloulq qjtjUI QjuobJI obiH ^939 ljujjuu eJUbg Qjob*Slml 
jjl t oblll <jgby Lo^lcg True qjoulqJI bbb jdK^IiiiIU ciLlo gl olaojo oblll 

. False qjoulqJI ibb ol^oo 


1 Wtkmt Form 


JDH 
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job^ill obi Cub bl lo djuobJI o.ha : (Visible) qjujjoJI QjuobJI 

(jj jol gjolljJI (jxo jD 3C1 uljuoJLI oblll jablm <Ja q/ULs^j Ibag .11 jd! Qjujjo 
(jbou.9 • False qjujjo jjlo gl True qjujjo Lol {jhcxxh QjuobJI obin ibb'g j a by 
jjob lajulb gl ^joU^jJI q/lo (joJin^SII qjOuIq (9jj_b <Jlc uuobJI o.ha jol vSlml 
gjo dijulmjl (jxll Picture Box ojgnJI <9901^ 6-olbl :dlb Jllo .(jcuojj 
rojgnll Not Visible c/ijjjoJI jjiog Visible (jojjjoJI cu^b qj ^’9 ojg^ g^bg 































































QjCUOjjJI Jjolglll djljtf nin.< 
olgall (Codes) 

LoliQjljQ^g 




l(1) 0»;■ 


(jiii QjJljUl qJoaII jlaJ6U culc jAUI ojlc Button jjJI 6bJJ (_fuiojj j_ol clbxl 

TextBox 1 . Text = “HI Visual Basic (:“(jQJJI ^jjjo 



dnojQ t/UI (JLoiiUI jaJu t/TJlxJI ^g£)l djlii) 
^q^JjcxJI jiiUI JJJb (Jjo ^joUjjJI i/lq 3gbJ I 
: (Button) jjJI obi <jil£ 

Text Box I.Text = “ HI Visual Basic (: ” 


:(2) (9ju±D' 



(CjjuJaill I: Ljupp’ ^joUjj 

oji^nll ^joIjaJI <-juPjj cisulg^ 

J-QjJIg gjolljjl JblSLLJLJU‘9 A*On AJLC ajl Oup 

c/ujpjill (jQJJI jc^kS 1 Welcome jj (jiJLc 
jd a All in Louuu Text Box ^pJLlI gjyo Jbb 
lha ^jojjjo joiuul jlsibil Progrannnner jjJI 
<juo jg^pJLI Exit jjJI 9 <c)nhill 






































Programmer, jljjlll ^ (jiLc >djJI aic (JtJLlII ^g£Jl djli^ .pi* 

: Welcome. Exit 


Programmer Button : 

Private Sub Button1_ Click ( By Val sender As System. Object, By 
Val e As System. EventArgs ) Handles Button 1 .Click 
Text Box 1 . Text = "Done By : Sheikha Al Mandhari “ 

End Sub 


Welcome Button : | 

Private Sub Button2_Click ( By Val sender As System. Object, By 
Val e As System. EventArgs) Handies Button 2 .Click 
Text Box 1 . Text = " Welcome to Visual Basic (: ” 

End Sub 


Exit Button : _ 

Private Sub Button3_Click ( By Val sender As System. Ob¬ 
ject, By Val e As System .EventArgs) Handles Button 3 .Click 
End sub 


















jaL 0i;Kill lia (jiQ <_/i3jojj jjoI^ Laujli^ (JJJb (jx> Tslble oir>b (JjlsAiJ 
ojg^i £bg gx> qjjuLujJI (/ill Picture Box qjq r> 11 ^g^iQ ciolbl 
: ojgxilJ Not Visible cjtJjjoJI jjbg Visible giijjoJI Qjuab 



Visible jjJI t/iital Cy° <jtJLc ^g^jjoJI jAlII alc (jillill 39AJI djlb jouu 

: Not Visible 9 


(J1JJJO jjl£ 

(Not Visible) 


V 


(visible) 


V 


Button2_Cllck "Not Vlslb” 
PlctureBoxI .Visible = False 


Button1_Cllck "Visible” 
PlctureBoxI .Visible = True 











































I (4) (9juJqj 


Enabled oj^Lill fuAug Ok <_nJI cuolluI jju&jq clljjIijuJI <jiJI Button jj aoUbl 




jniii 3 jlc (jxllill og£)l djlib jab OK jjJI obiJ Enabled cnmLd bionl 

: cuJLc ^9-bjjoJI 

Button 1_Cllck 

Buttonl.Enabled = False “jobiumlil dJbld jjA jjJI obi” 

Button 1_Cllck 

Buttonl.Enabled = True “jDlobiuuUU dJbld jjJI obi” 

































0gJ 0^3'ljijo jjh'SiuiU /»<~>vll Olg^l qjj (JiillJI gxa nn<-\vnll dpjpjJI jjolgJJI 
Up Key, Down Key, Left Key,) :</is>g pgjuuciL^Jl <_rua (Key Board) ^IiloJI 

(Right Key 


Private Sub _KeyDown (ByVal sender As System.Object, ByVal e As 
System.Windows.Forms. KeyEventArgs) Handies Buttonl.KeyDown, 
Button 2 .KeyDown, TextBoxl.KeyDown, MyBase.KeyDown 
If e.KeyVaiue = Keys. Down Then 

TextBoxl.Text = "Down Key pressed” 

End If 

If e.KeyVaiue = Keys. Left Then 

Labeil.Text = "Left Key pressed” 

End If 
End Sub 

Private Sub _KeyUp (ByVai sender As System.Object, ByVal e As Sys¬ 
tem.Windows.Forms. KeyEventArgs) Handies Buttonl.KeyUp, But- 
ton 2 .KeyUp, TextBoxl.KeyUp, MyBase.KeyUp 
If e.KeyVaiue = Keys.Up Then 

TextBoxl.Text = "Up Key pressed” 

End If 

If e.KeyVaiue = Keys. Right Then 

LabeL 2 .Text = "Right Key pressed” 

End If 
End Sub 






























































jl>oDI (jjjjLoiJ UlqJLd jiil 

(jjO C_Qj^j <jl OiKilll i K<n\ 

• 0 ^> 



LQJ 99 0 ^ 9 ^ 
(jl^jjjol ejul^ 






Qjjli^iJI QJIzJI 

(Repetition or Looping) 


(jUllll (LUl^JI 


QjlaJI 2 

(Select Case) 

cuk^l &JUI 1 
(Conditional Function) 


J9LI (JJujaJI 



jLiii (Jjo CLQjSLog < (reserved words) ojg^uo rLxuul Qn ojUi: c/ls 
Jjocdl (Jjo cLcgjocix) gl Qjslo rlj^l \ic\il) jogiill cJIluju (JlgrunJI gjolijj 
{JUslo QJ9 Qjsld (jiruojj (Jjcxs^j jogiii (jilll qa^jojjJI apIqoII gl djpjojjJI 

.Lob (j^lAJI ^g<JI 4 jH* yin 


: IsicIgJl (>09 


: (Conditional Function) dAbjikll dJI^JI 

lafunju' -U tipjQjj Control Statement dJLoc» ojLc i/ia 

i^jjjudl n^<r\ (JjO 0 nil'll ljlujq (/lie 9 I QxSLD k^jjL (jn->i ;u_c ill 

If-End If. If-Else-End If. If-Elself-) JjuO £lgji 6 ±c dJI^JI oia Jxxwig 

.(End If. Select Case 


: qjJqjjjuJI qJI^JU dsaioJI o^cldJI gl qjoUJI oslucJI 


If condition (oaov/ M3I9JI bj-wdl) then 

Statement (JojjjulII (go v/ dJL^ (jio \c\jj (jilll olrl^JJI gl oLoudLs^l) 


End If (rl^JJI \ic\jj QjlSLi) 




































jjolgLlI (JJJLi (Jjo (If Statement) dJoj/uJI qJI^JI \»n »t 

: o i ^ o jjJ I 


Group- acgja^joJI (99^10 jluial c/iiilii c/iJllJI tj«;^nAii 
gl Male jUxi^UI djLi Lol (/jjlp oJg Gender (juiaJI (jniJIg Box 
ll£j IF Statement djJajiiJI dJI^JI imu' jiieg Female jluiaUI djlij 
t/iJLc jiilll fij (jjjLpJI c/iJLc jnil l jcuu 0i; Kill (JjLamj'g (jjjlcJI 
t/iic MessageBox oJIluj jlaJal gag dj^lll funm) OK jjJI 
jgjiiD Exit jjJI />->'Sim ;9 OJjbiiJI c/i^l c/ilc ^lc (9nni 

. 0i; l^vll (/jo 
































•OK JjJI 6 b! i/Uc 99^1 jfiUI ale <^UJI agDI ojU 4 fik 


If RadioButtonl.Checked = True Then 
MessageBox.Show('Tm male:)”) 

End If 

If RadioButton 2 .Checked = True Then 
MessageBox.Show('Tm female:)”) 

End If 

gl gjolijJI (gULcil (jiJliJI ~>g^ll culi^ fill Exit jjJI (/lie jiUI 3leg 

End ‘(£).*.! 






















































g£>9 If Statement cubjilUl dJI^JI £lgjl juo t/ulUl £gjJI 

: If-Else-End If 


qJ cLotaJI cwinJI 


If (condition) Then “ooov; <-plgJI bjAll” 

Statementl “rlpJJI l.ia \* 6 u jouu JqjjjuJI (Cjn^y dJb q/lo” 

Else (JjjjoI 9! O^lpl iiiiiuju” 

Statennent 2 “(julill rlpJJI \ic\ii jouy JqjjjuJI <9 civ/ oJb un-d” 

End If “rlpJJI \ic\ii ojIsli” 

dJb lTlq Conditional Function cubj-iidl dJI^JI quo £gjJI lia jdvSiihj 
\ic\ili jDgiij ^joUjjJI qIq JqjjjuJI cJUi ^cj0v/j joJ (jig Qjslo JojjIj <90 V/ 

.pi Statement 0^ 9> ^Ip! 















































: (Login Page) jDjajLuuuoJI jjoj n ? nj ■ 






o 


How to create multi lines in TextBox? 


Name 

Age 

Address 

Rashid 

23 

Muscat 

Ameera 

28 

Sohar 


Enter 


oJjjjlsLo <jjd (JQ^u iq-ljuLljuJI (JjlJLaj 
cual^ 9 User name jpvSiumJI joiuul 
^JLcg Password (jij-uJI jolqjJI/j9jjoJI 
jouLi 0^6 nil 91 gjolljJI Jb^jjuug 
a^an <jlq d^vmll oULuJI Jliul 
■qmjjJcu qjjiszJuoJI (Jjo (Jil ^gill 
oJLuuj JLuujU gjolljJI jogiijg o^jnn 
djulill g^6nil (jiJI JLquJJI joJ Ljupp’ 
List Box Appllca- <jiag jjoUjJI 
(J^ihj oULuJI oJL} {j Log tlon 

oJLuuj JLuujU gjoUjJI jDgiij 
dxxl^ gl jD^niiJuuoJI jglujI Jliub QjuJj 

.Ihn jgjjoJI 












































































c/lIUJI ^g£JI cbltf fib 
(JlJLc ^Q^jjOJI j_QjJI OJLC 
: Exit 9 Login jjJI obi 


Login Button : 

Private Sub Button1_Click (ByVaL sender As System.Object, ByVai 
e As System. EventArgs) Handies Buttonl.Click 
Dim a As String “jjLdjuaJI cdjjsij” 

Dim b As Integer 

a = “Sheikha 4 * "jjlslo t/id JliuiJI oUly" 
b =12345 

JJb (jx> 0 n^rii b g a (If Statement) cubjildl dJI^JI djtb" 

If TextBoxl.Text = a And TextBox2.Text = b Then 
MessageBox.ShowC'Weicome to Application One”) 
Applicationl.ShowQ inll dJb (jib cfpJJI iudii’ 

Else 

''QjibjjjjJI JJb gl t/i^l dnx2 &iizj dJb (jin rljoJJI iudu" 
MessageBox.Show("Wrong Username and Password!”) 

End If 



























Exit Button : 

Private Sub Button2_Cllck(ByVal sender As System. Object, ByVal 
e As System. EventArgs) Handles Button2.Click 
End “gjoUjjJI (CjiLcI ag^” 

End Sub 




qjcxK 9I Username pa'Yimnll puul Jlaa| dJb i/lq c/pop >ol funjuu jclq 
pa'Yimo puul cLli^ oalcj gjoUpll < ■ 1;■ olp ljIIj Uaa Password jgjjoJI 
duuluu cjTJI Jlniilll pl» pi' ami' qJLljuj jlaksj Jlii* (Jjo oaj:p jgp qjoK 9I 
. 0»;H>ill gt ^joUjjJU JgijaJI oujLuj ysij dupj .(/ipl 

:ELself Statement o»hjm)l dJIaJI idxJLLII £$jJI 

Conditional Function dubpdl dJIaJI glgjl qh pi £gj 9 a (ElselF) 

,jUii kagpu oa£ <jp jnVi'll dJh c/lq </Pjo>j pi iunill pa'Yimig 
JqjjUI jlflal pb (jTJLxJI JojjuJI (Cpaju pi <jlg (P-ilill jlual pjy <JgXJI JajuuJI 
JagjjiJI <^p (jnt (giuai» pJ ^Ig ^pull (ipab c/ip ... liiag dJLLII 
.Else zsij ^iilgJI Statement c/lq dxLcxaJI 9 I dplll ipnu pgiL gjolipll 

: CLSpuoJI qjoLsJI dspoJI gf oarlnII 

If (condition) Then 
Statement 1 

Else If (condition) Then 
Statement 2 
Else If (condition) Then 
Statement 3 

Else 

Statement 

End If 

































: (Elself) cjrJLc Jluo 


cULuuj jlaJob /i gni ^joUjj 
LjJlbJI Jasjo (jiJLc (/iginj' 
t/iQ qJLaajoJI oQuill (-JXI.O (jiJLc 

ciup Student Mark j_pjJI 

. (JJl2jO (J A.'g.O OQii'i (Jil kijlUJU 

cjJUqJI Au’j Cul^ lil : JJUUxq 
(JjQ^JUJU QjlQ 9O9IOO QJJ Lo 
big .Grade A gl I J^szjoJI </ilc 
90 Qjj Lo (-JIKII Q Q'i i CjuL^ 
J^szxJI (jiJLc Jjcinjau qjLq 8 O 9 
liag... lilag .Grade B gl <_j 
Jasjo (jiJLc JgjCLiJJ giiszj 
jQjjl! cLAjO (jjo AjJJ <jiS?.Q 

. gjolijJI t/m oJLaajoJI cnuill 






























































































Find jjJI t/ij'bl (jiic ^g^jjoJI jiiJI jJLc c/dlill ^g£JI qjIi^ fib 

:Exlt 9 Grade 


Find Grade Button : 

Private Sub Button1_CLick(ByVai sender As System.Object, By- 

Vai e As System.EventArgs) Handies Buttonl.Click 

Dim StudentName As String 

Dim StudentMark As Integer 

StudentName = TextBoxl.Text 

StudentMark = Val(TextBox2.Text) 

If StudentMark >= 90 Then 
MessageBox.Show("The grade is A”) 

Else If StudentMark >= 80 Then 
MessageBox.Show("The grade is B”) 

Else If StudentMark >= 60 Then 
MessageBox.Show("The grade is C”) 

Else If StudentMark >= 50 Then 
MessageBox.Show("The grade is D”) 

Else 

MessageBox.Show("The grade is F”) 

End If 
End Sub 


Exit Button : 

Private Sub Button2_CUck(ByVai sender As System.Object, By- 
Val e As System. Eve ntArgs) Handies Button2.Click 

End 

End Sub 


















r 


>v 


(Select Case) dJI^JI 



ozn jjlsLoJJ (jgij jd vSiiayg "oJt^JI yi^V dJI^JI O-iiH (jiistf 

(juo j..^jOii jOLQj jd jlziLuuuoJ I .pgiij Ujuo .oULcxIdI gl jgljlo gl 0JJI3 

jl(J lc L 6 g_c JLi^joJI jolqjJI c aiu^/ qJLuuj 0rlfhu gjolljjJI jjgoxo t 5 

.Elself g If oJlzJI joIvSsml 


: d-fr.ua) 1 oaaldJI 


Select Case expresslon“ojLidl jauuu t/iiJI jjiaioll” 
Case valuel “t/Uglll dJbJI <j\h jjlszjjoJI oaui” 
Statements (s) 

Case value2 
Statements (s) 

Case value3 
Statements (s) 

Case Else 
Statements (s) 

End Select 


: (Select Case) uila giduhv JULo 


(JI9ILULO CLQjfrjO JjOUjj 
























cjJlhJI gigluLO (jnJLc gig ini' qJLluj jlSibLi jogiij ^joUjj -0.‘?^ 1 JjJLzj 
( jKl Jojiuju Cjuo Result (jQiJI gjyo gib dJb^joJI douuuJI <_ lujo <jtJLc 

ci 7>ii i cub I ill gilgill dJbJI gib iJJUuOiQ .oJUajo dJb gl gigiuuuo cinii'i 
.Excellent gigiuuuoJI gdc J»nnmi culb 90 gigluuu gl gx> uJlbJI 
culb 80 gigluuu 9 CM 3 J 4 ^f cjJlbJI 6 7111 i cub lb| dullll aJbJI gibg 
(jnJLc Jqo^u gusu lisjg... libag .Very Good gigiuuuaJI giLc J^im 
JbjjL ^ U go JJg cipjuijg dJb go jjb .xogj ( j+sld gigjLuuuo 

.gjolijjJI gib dJbojoJI onuill 


bJ SelectCaseApp 



Good 


1 

OK 



Find jjJI gubl c/ilc 5<pjJoJI jJiiJI ale c/lIUI ag£JI ojL^ jguu 

:Exlt 9 Grade 

Private Sub Button1_Cllck(ByVal sender As System.Object, ByVal 
e As System. EventArgs) Handles Buttonl .Click 

Dim SN As String 
Dim SM As Integer 

SN = TextB oxl .Text 
SM = Val (TextBox2.Text) 

Select Case SM 



















































Case Is >= 90 

MessageBox.Show("Excellent”) 

Case Is >= 80 

MessageBox.Show("Very Good”) 


Case Is >= 70 

MessageBox.Show("Cood”) 


Case Is >= 60 

MessageBox.Show("Accep table”) 


Case Else 

MessageBox.Show("falled”) 

End Select 
End Sub 

Private Sub Button2_Cllck(ByVal sender As System.Object, ByVal 
e As System. EventArgs) Handles Button2.Click 

End 

End Sub 


idJdioULo 

cLoLqI (Select Case) dJI^JI JjLaniJ c/ipl oojjJq 
(C ase 0 To 5 ) :<Jlio .qjJjxlq ^ju (To) 










Repetition) Qjjl^jUl oJIaJI 
(or Looping Function 


(juLLJI (JjujaJI 


\inii (jiQ jijjouLwJJig jijiui ojJLolc (_/ia (Looping) qjjIj^xJI qJIjJI 

<jua gl Inn^n JqjjjuJI q/lqj Ixxllh QjpjQjJI JjocJI <jx> clcqjxao 
While-End : UaclQJl <>09 .oIjjoJI qjo j 33 biujua.il 033^.1 aasJ gl JqjjjuJI 

.While. Do-Loop. For 


: While-End While : JgUI £gdl 


olcj 9! ((JVAOJJ JJOl) (jJLg-O 3 Qb A.fSiV (J1Q jljjOuLULlUU QJIoJI OAS) JD 3.3.111 1.7 

tQn-vV; (_piD 9! qj (glfiiaJI bjjjuJI t/idj loJlh djjljbj dnJb JlJb ofunu 

.QjjljbLlI ocibll <juo gjiu bjjjuJI Jn-v? j 33 lC dJb (JIQ9 bjjjudl 


idgjJuoJI oxcldJI 

While (Condition) ” ohbll jljb; bjjL” 

Statementl 'i “bjuidl 0n-\T ^ sl > Shiv i/ixJI olrljoJJI 9 ! oIoulLsiII" 
Statement2 > 

Statement(s)J 
End While "jljbUI rlsul" 


(While Function) c/ilc jiAiikti JlLo 


ljuujj 1suo Ljuii|9 j033IjjuuoJL) oIjjo (jjuucxi dJLuuj jlSlkbU .pgiij gjolijj \ic\ii 
L02U-C9 qjd counter <JI qjoulo 09 ^ 0 ^ noia jl>£y .jlj^ill 
ool^ll \x6iy 3JLC9 .jl^lll (Jlc LOLQ9I19 adJLiJI <jjd gjolijJI (UuOulq ^\*ny 

.counter Jl cLoulo q/lJLc gigm qJIujj dcLh jouy oyo (jro 






































: Enter jjJI obi mic ?9o>oJI jnDI oic </Jlill ogill oM fik 

Private Sub Button1_CLick(ByVal sender As System. Object, ByVal 

e As System. EventArgs) Handles Buttonl.Click 

Dim counter As Integer 

counter = TextBoxl.Text 

counter = 0 

While (counter < 6) 

MessageBox.Show(counter) 
counter = counter +1 
End While 
End Sub 



































: For...Next qJIaJI i£Q jJI 


ojgjQjioJ! djpx>jJI oixxgJI gl igill jlj^J ciii'i jagiii (For Loop) dJI^JI 
i/tiUI djulsull onicillg jlj^jUl ^l^xl qx> (djul^juJJQc/iJglJI n ninII g{ 3 asJI (jjj 

.jij^ill oiilo LsjjJLc uiogju 


:(igjuuoJI o^cloJI 


For [variable] = Start To End 

Statementl 

Statement2 


Next [Variable] 


: For...Next ajjljidl dJI^JI (jxLc jxaukiJ JUuo 


(a) jisLaJU qjjI^iII clqJLaJI \*on; .pgiij jouuouqj I^jllIqjJI (J 4 I 3 J 
(jilll (10) QjulsiiJI qjoulqJI q/lII JLiQj <jl (jxll ^jljlj'g (0) (jiJglJI o aaoII qjj 

(jQjJI ^jjjO (JlO IK (JTQ jlj^XJI ^l^cl jlsiibl gjO Qjjlj^jJI o cil^ll Isi^JLc LQiigju 

.CxAgJI qjjulqj <jlq MessageBox dJLuujg TextBoxI 


o? Forml 


0 22 


Number is: 1 


For loop 


’ 1 

1 gg| 

I The value of a is:l 


OK 

























































For jjJI obi uric ^gaM jiiill aic t/JUII agill QjIiS fik 

: Loop 





Private Sub Button1_Cllck(ByVal sender As System.Object, By- 
Val e As System.EventArgs) Handles Buttonl.Cllck 
Dim a As Integer = 0 

(jill 0 3 .X 2 JI (jjo ujlj^jJI cmJbJI qjIjj" 

"jlj£ill o^JLc uaiigij (jiiJ110 t/UlajJI 
For a = 0 To 10 
TextBoxl.Text = a 

MessageBox.Show("The value of a Is:" & a) 

Next a 
End Sub 


: Do...Loop Qjjlj^jJI oJI^JI icJIDI ^gjJI 


(jillllUg LaJ (90jnll ^g^JI iinii' jlj^)' <jiq jIjjOuLljuUI (jic oJIdJI oia jj^AIuju 
( giijjoJI ^g£)l ojaxb laolnjl <jil| i/i^gj </iaJI bjjjuJI g&g gjOjuxll (jiJLc 
.oJL^ djoJJI qjo (^jxuJg ojjljj^iJI ddJLiJI qjo jxpj' <juJI Exit Do .phiuuib 

. Do-Whlle-Loop. Do-Untll-Loop : laiuo £lgjf dJI^JI oiaJg 

IdgjJuoJI oclcLqJI 

Do 

Statement(s) 

Exit Do 
Statement(s) 

Loop 
















tt/ioiiKi JUjo 


Cup qJLsjijJ ^JLC QxSLO jIj^Xj (Cjnloill \ish jogiij " c9if ^V*)! (J4I3J 
Message- dJluuj <jt_6 (counter) ojoulo jifrhU qjjIj^j diiJb <jto 
3939 ljlujulj loo 6 qjj Ij^xJI oololl (Jjo lfl ^9 ( 3 ) qJuoulo c/Uo Box 
95^9 Qjjljilll 0 ololl q/Qj JJI \iC\li jOlxj jOlj Exit Do (JTOjOjjJI jjolll 

. MessageBox (The Loop Ended) dJluuj j9^h 



: Do Loop jjJI cjrJLc ^g^poJI >dill ^jlc (jrJliJI ag£)l qjIi^ jcuj 

Private Sub Button1_Click(ByVal sender As System. Object, ByVaL 
e As System.EventArgs) Handles Buttonl.Click 
Dim counter As Integer 
counter = 0 

Do 

If counter = 3 Then 

Exit Do “Knn QjjIjiuJI ,JLi)l (jx> ^gpdJ (jTAOjoJI jjoJJI lia .pa'S'i'iiu" 












































MsgBox("The Loop Ended”) 

End If 

MsgBox(counter) 
counter = counter +1 

Loop 

MsgBox("The Loop Ended”) 

End Sub 


Do-WhlLe-Loop qjjIj^UI dJI^JI ^gJJI 


JqjjUI (jtxlp LoJLb oJ <g£ijjoJI ^g£JI jl>iu gjolijJI jogiL oJI^JI oia grb 
adJbJI QX3 gjOLi»JI (jlo nnn->i fi^c. ilcg WhLLe QjuOj i/llc lnn~>r» 

.Do-UntLL-Loop aJI^JI <J/xc <_pl d_»jl>£LJI 


Do WhLLe “onHIl jl^i' bpju” 
Statement 
Statement2 
Statement(s) 

Loop cu-Lar cLsijl” 



iQ-gjjuOJI O^cLdJI 


•^/iniiKv JULo 


Qjjlj^jJI qJIaJI Qjj g.rxpj 

: ExLt-Do gDo-WhLLe-Loop 











































: ^joUjjJI Jxbu" 

Lab ^agjg (/ijljii' (J^i'ii ) oIjjo5 lessageBox qJIluj jLslIdLi jogiL ^joUjj iuAii 
gl jlj^iJI <_al£ijlg TextBoxI <jaill £jpo i/lq awI c/il Jliul <JijajoJI jmiJJI 
jjoJJI JJJLa t>o 'End' qjcxH (jiLc c/iglnj' i/ipl qJLljuj jlaJab djjlj^iJI adLill 

: Exit Do c/uijojJI 

how jjJI (jrJLc ^gpjjoJI j_ojJI Aic (JtJLlII qjIi^ jal» 

Private Sub Button1_Cllck(ByVal sender As System.Object, ByVal 
e As System. EventArgs) Handles Buttonl.Click 

Dim i As Integer = 1 "jlj^ill ala£ i/lq jja'Siih) jjlsxoJI lia" 

Dim a As String "jauul^ tpill £jjjo jm aJliul Au giidl jjislcJI" 

a = TextBoxI .Text 
Do While l <= 5 

” hn o oIjjo 5 JLiaxdl .ojjjJJU JLuuj jlaJal gag diiLaJI jlji? iajili” 
MessageBox.Show("The name Is:" & a) 

If a = "End" Then 

Exit Do End qJIluj jISlLjIj Qjjl+llll nnKII rlauj" 

End If 

TextBoxI .Text = a 

"ajIjjUU JJlujj 5 jlsiblg (_pJUI ^jjjo i/lq ajjuI (Jlii^l aJLc dpJJI (Jlxx^l" 

1 = 1 + 1 

Loop “oK dplJI ojo ^gpJI” 

End Sub 



















.oo-\m (_/H3 LaJ tcjnjall ^g£ll jljiy q/lq jIjjouuuULj ^xoUjJI jogiij dJI^JI oia <jic i 


.bpjuJI JDiC oJb t/l-Q jlj^iJI (JTQ jljjOuiluUI gl bj. Jl 

loffijuuQJI 6 a rlnII 


Do Until (condition) 
Statementl 
Statement 2 

Loop 




£jjjo jgab jIj^j (jiQ jIjjouuuULj ■£}■;bill lia jagiLi I^juJcuJ 
ojodb djlii bjjjuJI jd^c &Jb t/m cud jaujJJI djlbJ Input Box 

t992lia </lq d^jp^JI daJbJl Jb^b dUdg bjjjuJI tgo-vn t/Ub jlj^xJI gl dibb 



."Abed" t/iag Jb^lJI 



■? DoUntilApp 


Please, Enter Correct Name 


Please, Enter Correct Name 




Cancel | 


Cancel 


jdeba 


j-ojJI JUb 0-° cAIUJI ^g£)l qjIi^ Ay <c9.nhu)l jmjinny ysij 


:Do Until jjJI (jiJLc ^g^jjoJI 


Private Sub Button1_Cllck(ByVal sender As System. Object, By- 
Val e As System. EventArgs) Handles Buttonl.Click 

Dim x As String = "Abed” 

Do 

x = lnputBox( Please, Enter Correct Name”) 

Loop Until x = "Abed” 

End Sub 
































































Do-UntlL- Loop ajjljidl dJI^JI qjj djjliijo 

Do-Whlle-loop 9 


ajljj jga.fo gag jjoJJ djjlj^j' n»h ^juJcuJI lia idii CpuJolll (JjlIqj 

Number =) qjoulo ggjaj i/iia CjIjjo 5 opD {Number) Qjcuii 

. Qjjlj^jJI CLdkJI <j£. cAogju la^sjg (50 


: o Until jjJI (jrJLc igajjoJI jiiill aJLc (jillill ag^Jl ojIi^ jcuL» 

jih jlpxiuuUU .pgiij gjolijJI <j} Do-Untll-loop dJIiJI i/lq 
JqjjjuJI (jn^ii (jiia gt JqjjjljJI flnii ' pm. oJb (jT-Q IsJ (giijjoJI ^g£)l jlp£j 

.50 t/iglujLi' qjOulq pb gag i .glKnll 

Private Sub Button1_Cllck(ByVal sender As System.Object, ByVal 
e As System. EventArgs) Handles Buttonl.Click 
Dim Number As Integer 
Do Until (Number = 50) 

Number = Number + 5 
MsgBox("The value Is:' & Number) 

Loop 
End Sub 

































































loJlb Isil ^9-QjjoJI ^giJI jlj^u §joU>JI jDgiij Do-WhlLe-Loop dJI^JI <jt 6 Lol 
gjolijJI (jlD o ciciJ0.XC 3JU29 While (juuou (jiJLc JqjjjuJI (JTQj 

oUh"yil Lo liag .Do-Untll-Loop dJI^JI Jbar: gil cijjlj-^Xll ocil^ll <Jjo 

joJ (Number = 50) cuxih <jL gf&g jjolll (Jjulqj ^gnkv/ zic. 

o ciHII (JlX) oj-lLUjo Oup Do-While-Loop qjjIj^iII qJI^JI Jqjjuj ^9ci*Vn 
qjOuld (jb 9S19 o cil^ll jlj^J Jojjju }xjszjj QjjliiUI ool^ll \ic\li jou‘9 Qjjlj^lll 
IcjtJIxJI jjoLII gl utq 9a Lol^ (Number< = 50) nsz )\ 


:c/px»>JI jjoJJI iunju 



Private Sub Button1_Cllck(ByVal sender As System. Object, ByVal 
e As System. EventArgs) Handles Buttonl.Click 
Dim Number As Integer 

Do While Number <= 50 


MsgBox("The value Is:" & Number) 
Number = Number + 5 

Loop 
End Sub 



















(jg^j* o' ^.P djjgjQ Loub gj6 

aaliijug, dbdLpjog dUUic < jy & ISkJLc 

•• 

, c lingj jopD’ joJ bl .. Lstg^J 
q/tjIsli U oLiill jolLuu .. dbnxU dLoj^lw 

ollcl c/i-Q joh^jJJI Ojo 

JjiSi 

(jl£{>ol LJU-tf 









(Array) olagimjoJI 


o/ulill rLJUj^JI 


(Mod Function) oJI^JI 2 

(Val Function) dJI^JI *1 


JgiJI (JJujaJI 




dj^^c cLcud tAll (String) dinill djoudJI J-ig-Vn .pgiL? giiJI dJIoJI <jia 

Val (TextBoxl.Text) :dUd JlLog (Integer) 


: (jT-CLuJoj JILo 



^joUjoJI .pgdj I^joUjj (JjdaJ 
qjuLluo qjlLolC iunllj gnJllll 

t^jucxdj Jliul iic "^ociH" (/lag 
TextBox1,2 ^pill gjp (jid 
jlabll Calculate jj c/ik: >QjJlg 
.Result tpill t/io giUJI 


:i/iL Lould Calculate jj c/iJLc ^g^jjoJI >diJI jnii c/uuojJI jjoJJI 9 I ^g£JI cLli^J 

Dim a, b As Integer 

“gjoUjJI t/id utjLUI jCLQjJIg Jglll jclqjJI loag 111 ^jjlsLo tjQj>s 2 j” 

cLll^ £0 §x»U>JI t/io jjlsLo <j£J _n<^Yll obi gl <jlio jai j dlb isl >" 

"ojuLuoJI djJUxaJI dplJ (Function Val) djuald 

a = Val(TextBoxl.Text) 
b = Val(TextBox2.Text) 

TextBox3.Text = a + b 

" dJUUI (joill gjjjo (jiD 0j'UJI j lab II (^jjjLajuoJI (jju Qjulimll cuJLolSlII Sin i 7" 


































jslqjJI (jl^ lij Lo oJI^JI oi£> .p^Almi 

.Odd bojii .pi Even Lc»gj i/lq <JijojoJI 


: (/LQjLLbj JlLo 


QX) <.<IK| gjOlijJI lia t/IQ : ^joUjjJI (JjlJL^J 
Text- tplll gjyo (jip jplqj (jil JliuJ .pi'SiuinlJ 
gjoU>dl .pgiij Check jj c/iJLc jnill o±cg Boxl 
tcjgj (JiiijoJI jclqjJI lil Lo oojU qJLujj JLujjU 
jol"v~S> ml JULiv (Jjo dLJig Odd bp>p jol Even 

.Mod Function dJIoJI 


:Check jjJI (jiLc g^jjoJI jjLJI ojlc q/tJIxJI og^JI culi^ jab 
Private Sub Button1_CUck(ByVal sender As System. Object, ByVal e As 
System. EventArgs) Handles Buttonl.Click 
Dim a As Integer "<jqjlJI £jjjo giii oJbo| jclL; giiJI (o^sdl) ^aioJI" 
a = TextBoxl.Text 
If a Mod 2 = 0 Then 

"</mgj ^^sdl o| (/Li 2 j liao 0 gigluju 2 <jiJLc oo^zJI OjOlujlq q/lpU gj" 
MessageBox.Show("Thls is even number”) 

Else 

MessageBox.Show("This is odd number”) 

End If End Sub 






























































t/iag Serial Function oliuliJuiJI aJIoll £lgjt q.o £gJ <_fia ditgAojoJI 
o^jic oULu t/iJLc cjiginj' (Indexed Variables) auujaoo oIjaslo qc. ojLlc 
001^^111)1 O^f. ^9 ALL) 1 Lad nn gn»an (J^g Data Type £gill (JULQJ (JjO 
(JJLoy alu-LH lia dLbg Isuo (Element) jjcclc t/il (jill fgci>JJ 

£lgj| QA £gj (jnl (Jlic laJlgl^JJ n ng n n rliujl ^iog o ^ 0 

qa£> laiyaalg .La^og drucucJIg oikoill ^loclllg <jQgjQi)l : Jio CjULuJI 
cly o^joj qjJJ 6 ju 4 ogii Ob dJcLLuuyg ojj^io (Codes) ooojj j-olgl aclio jiq 
.(Elements) l%olic ,jb laao ologiLOjoJI g.o r>rin<. (Jjolaii' Loops 



LjguuLlll Oj^la c/lii Qjjiixxll nngdnnll J<iii 


:dLuuuu Jlgginll ^jolijj qf LO (/OjOjj jjoU IBojlDJu 

Dim (Array Name) As DataType () = New DataType (No. of Index. 
(Elements of Array} ' 

"laiuuplQg ISllQ o^g^goJI OliLuJI ggj £jo o o go nn ll lqj> 2 j" 
IQiiCiijJcu ntS gnr>n ll gxo jjDliaJI LQjjStf jQjy 

(Elements of Array} 

2 ArrayName(No. of Index) = Element 
Then use Loop Function "qjjIj£j alb c /10 dogoooJI Jliul" 










































: c/icinhy JUuo 


(Elements) jjoLlc d^jjl <_qj>2j .pi* flnbTii lia JUb qjo ^jllJcuJI (JiI^v 
(Jl Qjjsti JXU tjup (Integer) il^ci OUb £9J QJD nngn^n t _fTQ 

jn^>ll ^>0 LoJb liy c/lbll (Index of Array) nngn^nll (jjupK) <Jijb jjQJLC 
dJIiJI iuXLij Jib (JJD nngn^nll (JjO jjQliaJI oba ^bjluul 0^A!9 3 cJtJJ 0 

.For-Next cijjljbiJI 




































































































j-qjJI JUh <jjd cjrJllJI ^g£JI qjL4 jcuj .oJJLcI < 9nhill .runny ysq 
Declaring and Initializing an Integer jjJI (jik: ^g^jjoJI 

: Array 

Private Sub Button1_Click(ByVal sender As System. Object, ByVal e 
As System.EventArgs) Handles Buttonl.Click 
Dim array As lnteger() = New lnteger(3) {} 

“{10, 20, 30, 40f 
array(O) = 10 
array(l) = 20 
array(2) = 30 
array(3) = 40 

For i As Integer = 0 To array.Length -1 
MessageBox.Show(array(i)) 

Next 
End Sub 

(String) uagp olitu £gj qjo nngn^nll :(_/TjlUI £gjj| 


; (JIQjllIqj JIxjo 


(Elements) jjoLlc aamj lq jjszj jouy (gnhull Iba (JJJb <jlx> 10 n lr J1 
jolXj Cjlo ^gjjjulll joUl rlxxuul c/LS&g (String) Log^ olitu £gj qjo o-ogor\jo (jxo 
I^jj giiJI(lndex of Array)(week( 6 )) ongonnll Jbb jowul Jb Qjul&J 

JUb Quo Q-Qgnnn)l <jjo rLodullI oiiH ^bjluul (jioug 6 <jtJI 0 jtinil qjo Ixxib 
(JLlsijlju ^JLcg ^gjjjulll joLjI Q-oga no <Jg_b ^jA^'/g For-Next qjjIj^iII qJIaJI \ic\ii 
(JlX) la^bjluulg (LlstBoxI) cLoJloJI q/lo £g_ujujjl joUl rLoaul jlSlbl jouu (Cjnbl)l 

.jjJI (jiJLc j-qjJI yin (Week( 6 )) oogonnll 




















jjJI (Jlix ^JjqJI jAUI ALC (jxlllll ^gAll Qjli^ J3uu .oJJLcI QjuJaUI ninr>v 

: Declaring and Initializing String Array 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles Buttonl.Click 

Dim i As Integer 
Dim week(6) As String 
week(O) = "Saturday” 
week(1) = "Sunday 
week(2) = "Monday” 
week(3) = "Tuesday” 
week(4) = "Wednesday” 
week(5) = "Thursday” 
week(6) = "Friday” 

For i = 0 To week.Length -1 
ListBox1.ltems.Add(week(i)) 

Next 




























ri o gn m il jjdLc (JjO aislg jolljjI jtubl gl jgSlb ajaniJg tn kS~> I In 
(j-o oliuji^ng ( iglKnll jjaiaJI jnul ajanj' jnii (gjubill c/iii (Week(6)) 

:cjtJLlII c/ojojjJI jjoJJI ojIi^ Jib 

Dim weekName As String = week(O) 

If week(O) = weekName Then 
MessageBox.Show(week(0)) 

End If 



(Array.Resize) oogiicuoJI jooa jjulsj cibu^ 

(JjO ySuC. gl jbl jaaa Ola nngnr>n a; r. Yg .o ngn r>n (ji| _naa jabi Q^Qj 
jjulszj i/iisj liag .(Array.Reslze) (_/i^jojjJI jjoJJI Jib <jjo Isb QjjiuoJI jaaliszJI 
.joT ajao _naa t/UJ a.'g.i.ll Qjabi n ngn r>nll jjqIlc <jx> a an 


: (jihukLi Jlk) 


(Abcde) nngnr>nll naa yjjsU jyjj flnhill la£S Jib 0<;(Jll'V/ 
giag 4 (Jill 0 (jjo omjtflhn jjqLlc jaub (jjo <jgioJI (jikaJJI naal l qjo 
fluhill Jjlsjjuj ale MessageBox qJIluj <_rm jabJ giiJI A- B- C- D- E 
(jjjmjLC qx 3 (jg£oJI ajanJI .naal l (jiJl Rezlse an array jjJI <jiic >dillg 
a^j MessageBox oJIluj t/m jabJ <_/uUI A-B t/iag 1 <_/iJI 0 qx> Qimjtflhn 

.gjolijjJI JbiSUiJj aic nngnr.nl! (_/TJL^alll ja^aJI jlcfthl 












































jjJI (jiLc ^g^jjoJI >djJI J11A <>o ^g£Jl djli^ jnli .olicl ((jju-laill jajuQjaj isl > 

: Resize an array 

Private Sub Button1_Cllck(ByVal sender As System.Object, ByVal 
e As System. EventArgs) Handles Buttonl.Click 
Dim Abode As Char() = New Char(4) {} 

Abcde(O) = "A” 

Abcde(l) = "B” 

Abcde(2) = "C” 

Abcde(3) = "D” 

Abcde(4) = "E” 

For l As Integer = 0 To Abode.Length - 1“d4balll nn gn^ni i” 
MessageBox.Show(Abcde(l)) 

Next 

Array.Reslze(Abcde, 2) “laxxoa jjuls>j zsl> nn gn^ni i” 

For l As Integer = 0 To Abode.Length -1 
MessageBox.Show(Abcde(l)) 

Next 
End Sub 




































































jju£j SSL) nngorinll jjQlic" 

(Dynamic Array) qj 9 jla)I nngn^nii 

loujg nngn^nll o^Uj (J^sCU LOjl 4 OAptO liiiaj JJ iii (jLpill tJ^°.' (J1Q 
9 .gjoLijJI (JjLg-ii'jL? Ciiig (JLQ n ngn r\nll jjul&j (JlLc 6j.mll LbiJ Qg^J U 
Oup (Dynamic Array) ojgjpJI olagAoxJI ga (JaJI 
(Jjo t/iag 069 (jnt (jic I fringe jjul&j (jiJ_c ojmJI laJ 
.Visual Basic (jic opijjog Q->9 jjo jj^ill oljjuoJI (Jju 
(Jjluju (jiic .nrln<i oj^liJI ojbl (/lie cJacLlul? (/1XJI9 
6 ji rvn ojjinJ Ojju4 nngn^n Jib'S? ml dLiloj . JUuoJI 
cjilj gjpj JJ lo^JLc jilbill (jic oj^liJI fij (>09. 
lojjsJ jUj oi 93 (JLj^jJIg .dcgnnxxJI gic Lsiobitiijul ■ 
fij (>09 ^1 jpa ob ocgjiojo (Declare) oULcI 9I 
.lauJI ^liai JJ (jiiJI dogiuQjoJI jjqLlc <Jabj 














































al^jl QjOuLq IfhrlKrl JiLis QA Qjgjp nngnAn <JlC (jULcJJI gl LQjplJI liilajg 

. Dim DynArray () :dUa Jllo .(An Empty Dimension List) &ejle 

c/ie (Exact number oF elements) plLaJI qa (jiiaeJI aiaJI ^japiaj pi - 

:JJLLo (JTJLlII i/ipjOjJI JjoJJI JJJLa QA nngn^nll 
. ReDlm DynArray (X +1) 
ale t/ia (X+1) axkaill gl acjlnJI nngn^nll (/lq pliaJI aae 0j6gi (X) Oup 

.Isiapa jjyialJ (jnp pile aaU 6 j 

elpJJI i’ll dLLo (jg^v dup Statement elpJJI <jta ReDlm jaapim! Oup 
(Jjulqj jaeai jiag .§joU>JI Jaamj oiig eliil (an executable statement) 
aae yjjsu laiioLig (Fixed Array) djUtUI nngn^nll deadiumJI aLopJI elu 

nn gn^nl l gqp plL&JI 


I (jnni;KV JLuO 


Dynamic Array ojgjpJI nn gnr>n ll jjpJuu flnKtl l lia pgiLi '0;;Ki’H (JjlIpj 
c/ill marray(2) aeginaoJI japa pall marray () aejle alfijl anile Ola 
nnQfiAn 0)|<?nll pliaJI aae (/maV. jaii Olp ja^I jape Ola marray(IO) 


(/liJI ja^JJI nngnr\nll (jp laJI gliOj U t/lXJI nngn^nll QA (/Ipl pile <Jalpig 
jDaiiiuju (jniJI ReDlm Reserve c/ipojJI pill aniiy JULa qa lamp jjupj ju 
(JjlslljuJ alcg .Isrnpa jjuai ale dbgeiajoJI jLala oagpgnJI pliaJI c/iJLc ialdnJL) 
OjOjLq (jiA Iffln'p jjusj aszjg Jp oo gntan ll gxo pliaJI gpp pikai gjolijJI 


.Show jj cjile piJI ale LlstBoxI 

























OdLC ^Q<ll QjU^ fiiij oiuiLuJ .oik 0i;l^ill fijJXiCLi Ol Sj 

Show jjJI (/lie ^g^jjoJI jeiiJI 






























Private Sub Button1_Cllck(ByVal sender As System. Object, ByVal e As 
System. EventArgs) Handles Buttonl.Click 

Dim marray() As Integer "ocjLq aailii oli djgjp nngn^n 
ReDlm marray(2) "I&jocu jjuaj' <Jiii oogiucioJI jjoLlc ^jo <_pjijaiij" 
marray(O) = 10 
marray(l) = 20 
marray(2) = 30 

ReDlm Preserve ) 

“ISLCLia jjyLgJ ilC nngn^nll (/ipl jjqUlC 

marray(3) = 40 
marray(4) = 50 
marray(5) = 60 
marray(6) = 70 
marray(7) = 80 
marray(8) = 90 

For i = 0 To 10 djjl>£j adJb <_fLa nngn^nll jjalic Jgiu" 

LlstBox1.ltems.Add(l & vbTab & marray(l)) 

” LlStBox1”(/LO nngn^nll jjqUlC £ju 0 C» jLa^kbl 

Next l 
End Sub 
















U| laaJLuu cMjjj U doo 0laUI 
jaaiaa <jll ojJLaJI jclosJI oLajol 
CjyisD jig oJUalgjoJI (jrll jaaagiiJ 





(jjuuolAJI JLiClqJI 


jail)' C1I9: (jiJLc oLqjuJqj 
cJUjulu JlgrunJI <jt-Q nnliSn 


(jullll fLUj^JI 

•• 


jaiaiJI Olgal (jxLc (• ■In.iKv 
cJLljuju Jlg^uaill q/lq JlgaJIg 


JgiJI 







JOL^XJI GjIQ^I (_flJLC (•• | lni;hvi 

dLujjy (JlgjpLLoJI Jl9^Jl9 



JgUI u^i) 


WBIIiMWI 

0JCUJULJ n<~\i obt gt jjqJLc ga l(Check Box) jluiaDI QJLd 9 I (99^10 

Lqjjjulo oii>gjo acgxxajo Q.O CxogJI jjuiLi i/lq jlp (Jjo jtubb .p-rSimnll 
. False gl True ^licuA oJ zxi i/ixJIg oljtbJI <Jjo 


:< 9 if hiJI 



jlubl olib CjULj tgijbvii lia Q n bju 
tgg^JLQ Jbl^j CheckBox £gj qx> 
Hob- oblgaJI t/iiJIg dcgja^joJJ 
jlubUI oub Lol oljtb CjJJL) oJg bles 
Shopping jtgblll oub gl Traveling 
Reading Stories jtubUI dJb gl 
IF State- axbjjjuJI dJI^JI fuAjJ yicn 
fib (§jubi)l (Jag-U.ug jib (Jil ment 
fij jib cy° ji^l 9I jIjP t/iI t/iic jAJI 
dpJJI ^vihii) Choose jjJI (jiLc jAUI 
zxlb MessageBox dJluij jlabl gag 
t/il c/iJlc jAJI ale bjjjuJI (jiLc 

Exit jjJI jo^biuuug djJJUUI oljlbJI qx> 
.(gjobiJI t>° 

















































! Choose jjJI ob (jiLc g^jjoJI jiidl jJLc (jiJljJI ojlb jcuL» 
If CheckBoxl.Checked = True Then 
MessageBox.Show("l like travellng(:”) 

End If 

If CheckBox2.Checked = True Then 
MessageBox.Show("l like shopping(:”) 

End If 

If CheckBox3.Checked = True Then 
MessageBox.Show("l like Reading Storles(:”) 

End If 

gigjiiU Exit jjJI obi c/ilc >qjJI ^ic t/dliJI ^g£Jl cLli^ pjyg 

End * 0 mK-. ll 


I (JLillll 01;bill 


(MessageBox) (JT-^jojjJI jjoJjI (tjjj-b qh qjuIuoJI oLLosJI iv 

; 01;bill (JibV 

dpi ^jo MessageBox oJIluj jl&ksb .pgiij gjolijj ijuiDg nin^i 

Button jljjl dffijjl aj 2 l 2 J Jib Qjo ^Jllll jlsibJJ Ini^nl r cluIlloJI oLLcisJI 
dpjojJI jjoIqJjI iuniigl cLljbg (Add. Sub. Mul. Dlv) (/is>g djyluoJI CjULcxaU 

I jOlSUD 

































































jljjiM CM> its uilc agajojl M^H ^ otJUII ^1 QjIiS fin 


: Add. Sub. MuL. Div 

Add Button : 

Private Sub Button1_CUck(ByVal sender As System. Object, 

ByVal e As System. EventArgs) Handles Buttonl.Click 
MessageBox.Showf 10 +10 " & "=" & 10 +10) 

End Sub 

Sub Button : 

Private Sub Button2_Cllck(ByVal sender As System.Object, 

ByVal e As System.EventArgs) Handles Button2.Cllck 
MessageBox.Showf 15 -10 " & "=" & 15 -10) 

End Sub 

Mul Button : 

Private Sub Button3_Cllck(ByVal sender As System.Object, 

ByVal e As System.EventArgs) Handles Button3.Click 
MessageBox.Showf 10 * 10 " & "=" & 10 * 10) 

End Sub 
Dlv Button : 

Private Sub Button4_Cllck(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles Button4.Cllck 
MessageBox.Showf 15 / 5 " & "=" & 15 / 5) 

End Sub 


: ljJUiJI 0iihiII 


: (Variables Types) oljA^Lcdl ^IgJl 

!0iihiII Jihi 

(/Uglll essageBox OjuJLuuj jlabl gag bmju clpl furutL ^juJoiJI 15 a jogAi 
£gj qjo (juti }xsjjo jtJlc cjiglnj' dJliJIg String £gj qjo jjl2Lo i/lLc (jiglnj 
. Variable Type jj uik: jiiiJIg <911 hill gl gjolijJI sir. Integer 
























: VarlableType jjJI dial t/iJLc igajjoJI jAUI jaii (gjuJoill \'/i tv I 

Dim StudentName As String = "Sheikha" “jbioJI lqjjsj” 

Dim StudentAge As Integer = 25 
MessageBox.Show(StudentName, "StudentName ”) 

“jjLgioJI CiliLuj qJLluj jlabl” 

MessageBox.Show(StudentAge, StudentAge) 


: 0 uhi)l 


oJJLoiaxdi t/i^! .pibiuui ^jlc iSelect Case oJlaJI qJuo 

.(Case) dJb J4 zsl> (Is) oblbl jajy (...<> .>=.<= .>.<) JJuo n.nHinii 


(jl Cjlo dJb Qjo jl£ jjLajuoJJ iogj flnKtl l gt ^joUjjJI 15a gb £)nbill Jih? 
ggb> gUJI abjjoJU dJluuj jahimn 12 (Jiv^xxll jjcxszJI gb 151 i/dgill dJbJI gb 
dJbJI c/rng (jgJldJI <_mo c/ilc jjdLq qjL gag jjcxszJI 15a Jib ^piuldl lab 
I5ag ...I5bag gU:}joJI ggjbJI ljojuloj loKo cub 15 Jij:ijoJI jjolsJI gb 151 autUI 
jnlig cl) oob &Jb b9j' (^uoUjaJI gb jbLoJI) Qxslo jjoc gb cul gibj 

.^gbJI Jib 0-0 ImujbO 




























































:Enter Age jjJI 61^1 t/iJLc ig^jjoJI j-qjlJI jjlc (jillill ^g^ll qjIi^ jaii 
Private Sub Button1_Cllck(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Buttonl.Click 

Dim age As Integer 

age = TextBoxl.Text 

Select Case age 

Case 12 

MessageBox.Show (“,jgjlnJI ljujul^j j^Lo CjjI”) 

Case 15 

MessageBox.Show (“c/LjjuoJI lqKo cjI”) 

Case 18 

MessageBox.Show (“ojblJIg obpldl dliLoj oUl dU &V’) 

Case 40 

MessageBox.Show (“jLogJI dJhpo Cxliu”) 

Case 65 

MessageBox.Show (“icliijUl CiaL”) 

Case Else 

MessageBox.Show (“c/ijiAl ologlajo”) 

End Select 
End Sub 

















































:<jjuuoliiJI 01;Kil l 


(For-Next- Loop & Do Loop) oJI^JI qjj djjLnjo 

:<9nhiJI JbJL^j 

jlj-^iJI QjlLolC gl I \*On; jDg_Qj LoloUjO ^Ig jj <JjO (jgio (9*f FV/ 

For...Next qjjIj^iII qJI^JI jdK'SiijuU 10 (Jill 1 (juo ^sl Jl 9219 {ji^oyj jjoJjU 
^JLc (10) djulsull on* oil zi£. jlj^xJI c/i2mjg (1) qjuIaIjUI qjoulqJI <jjd jIj^xJU 
\ii\ilt jogiij (jTJllll j jJU QjjjuiiJU LoI .(J9JJI jjJI (jiJLc jiiLllg <9 n hull (JbLSjjuu 
10 (jigLuuLj 9I (JlX) ^2jqJJI ^I^lcIII 92i 0ol^ll jlj^J k^jjjug qjjIj^j 0 ol~\ 

gojuLI jlsikblg Do-While-Loop dJI^JI jdK*SiujU (/ojojj jjo! \*6u JULi (juo 
.gjolljJI (JLlsijljJ sic. LlstBoxI qjouLqJI (Jlo jjJI (jutal 0 -& qjjIj^lII 0 ol^ill 































: 0 «Jlill jjJI (/obi oiic 393>all joiJI He t/xIUII jgill a-liS fiij 


Count from 1 to 10 using For loop : 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e 
As System. EventArgs) Handles Buttonl.Click 

Dim i As Integer 
ListBoxl.ltems.CiearO 

QjcudJI iic (_ri5ii'.ij (jl (jiJI (1) QjulijuJJI (ininil <jx> djjljAiJI cldJLJI \iniT” 

For i = 1 To 10 (10) Auladl 
ListBoxl.ltems.Add(i) 

Next i 

End Sub 

Count from 1 to 10 using Do loop : 

Private Sub Button2_CLick(ByVai sender As System.Object, ByVal e 
As System. Eve ntArgs) Handies Button2.Click 

Dim a As Integer 
a = 1 

ListBoxl.ltems.CiearO 
Do While a <= 10 

(jjo j’pnlll ^l^clll j-c (jia AqJLaJI jIjAj JqjjIj” 

“qjjIjAU; dAJbJI LdngJu Isos&q (10) t/igluu 9 1 

ListBoxl.ltems.Add (a) 

a = a + 1 

Loop 

End Sub 




















ja^i Cj 1 93 I c/iJLc CiLqjuJqj 
dLuuuu Jl g^inl l <JTQ nnlY-Sn 


aTJtsJi ajjj^Jr 





(Timer) (">090)1 

Tool- (jiii o^gogxxll olg^I 9-9- 
giiJI gag dLuuuu Jlg^oll gjolijj <jt _6 Box 
ajuLiigjg qj ulj^JJI \aouj jDgA j 

(9nhill JUd (juog .qjuIju 0333jo o^jo 
CjLogjcxJI ciajojj oacu^ (lojszjo jouullju (/Ulill 
:dLuuuu Jlgouaill §joUjj <jt _6 



(aoinjl 0099 Timer OiiigAJI JaamJ Ciog) 






























































j-OjJI 3l£ (JtJIiII ^g£JI OjU^ JXu ‘0“bTll Iboi jQjuQjQj zszj 

:Stop 9 Start jjJI c/ublg Timerl qjo IK t/ik: ^g^jjoJI 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e 
As System. EventArgs) Handies TLmerl.Tick 

<JL^ OAjJjj'g CLQgJI qjIaj iJiAj' 9a CiugjoJI (jTQ ljul£j (jidJI 

“(Time) (joill gjj-o (jzo dub 
Dim a as integer 

a = Vai ) 

TextBoxl.Text = Val (TextBoxl.Text + l) 

Labei3.Text = TimeString "CiiigJI jlaksil" 

TextBox2.Text = DateString "^jjIiJI jlahll" 

End Sub 

Private Sub Button1_Click(ByVai sender As System.Object, ByVai e 

As System. EventArgs) Handies Buttonl.CLick 

Timerl.Start ()"dub (J^ did joJL (_pliiJI rljoJJI \>ni > 9 (JiamJ 39 ^ " 

End Sub 

Private Sub Button2_CLick(ByVai sender System.Object, ByVai 
e As System. EventArgs) Handies Button2.CLick 
Timerl.Stop () 

“dub CjLdgxxJlj (jaliiJI c(pJJI iudJu uildjJ 39 ^” 

End Sub 


: (JtjLDI 01 ; bvii 


(llstBox) djouliiJI 

Oljtubl oa£ (juu jlubULl jd ablmug gjolijJI q/lq jn^Sxll Olg^l (juo obi c/l5& 
qjIi^ gl glpl 9 I 3j-w JUb 0-0 dbg Ijxb oljlubJJI (jgij gin7 9 

.laJblaj (oljlubill) jjoUslII qjo cLcgjcx^jo 





















jJLc utJLlII ^g£JI djll^ jouu .oJJLc (CjjjJojiJI jouuoucij fijj ysu 

: Close 9 Clear 9 Enter jljjJJI (jiLc ^g^jjoJI jiUI 
Private Sub Button1_Cllck(ByVal sender As System.Object, ByVal e 
As System. EventArgs) Handles Buttonl.Click 
llstBoxl.ltems.Add(TextBoxl.Text) “djoJlnJI gici p3li£ cuiUslI” 

Or LlstBoxl.Items.Add (“new Item”) 

End Sub 

Private Sub Button3_Cllck(ByVal sender As System.Object, ByVal e 
As System. EventArgs) Handles Button3.Click 
TextBoxI.ClearQ “(jqjJI ^jjjo <jjo jjqic i/il c nSnl” 

End Sub 

Private Sub Button2_Cllck(ByVal sender As System.Object, ByVal e 

As System. EventArgs) Handles Button2.Click 

End 

End Sub 









































icJlill 0i;KvM 


(ComboBox ) jjpiJI gl ^jjjuJI £jjjo 

o^g^gjoJI /><~>yll ("iIqaI (/i^l gfh ; 'omboBoX jjjUlll gl -^J-UU-II ^JJJO 

Textbox tpill gj>jog LlstBox qjoJLoJI qjj </i:JI 9S19 gjoli>JI t/ib 
.lvaim ^-y-Sim; clip oliilxi jjqLlszJI gl OljLioUl Q.O aj^sJI (/lie (/191^19 

OljUii>JJI (jgii lo^JLc gJLiQj 9 3 zslLo qjj 


rj ComlxJ&DMApp 


I <-i ' 


Cff/ifanVi 


Fruit 

Vegetable 

Meat 

Saftdriiik 

Water 

Snack 


E 


dd 


Add 

Clear 

Exit 




FI -j.r - 




4dt 
Ctetw 

Jtar JMwh jr mid Jp fiwa * ~l 








ton 'iikrlVi Jtrr 


1 * 1 



j-QjJI jJLc (jrJUJI ^g£JI Qjltf jcuj <oJJLct 0 »; H>«H jilOjOj xsl> 
Add .Clear, Show. How much u add. jljjlll (jik: ^g^ixxJI 

: Exit 

















































































Private Sub Button1_CLick(ByVaL sender As System.Object, 

ByVaL e As System. EventArgs) Handies Buttonl.CLick 
ComboBox1.ltems.Add("Fruit”) 

ComboBox1.ltems.Add("Vegetabie”) 

ComboBox1.ltems.Add("Meat”) 

ComboBox1.ltems.Add("Softdrink”) 

ComboBoxl. I terns. Add(" Water”) 

ComboBox1.ltems.Add(“Snack 
ComboBoxl. I terns. Add(ComboBox1.Text) 

End Sub 

CLear Button: “laK jjaliaJI uiiijiJ” 

Private Sub Button2_Ciick_1(ByVai sender As System.Object, 

ByVal e As System. EventArgs) Handles Button2.Click 
ComboBoxl.Items.Clear () 

End Sub 

Show Button: “^juudl gjyo (pi ojUiijI £j jxiic c/il ao>axxJ” 

Private Sub Button4_Ciick(ByVal sender As System.Object, 

ByVal e As System. EventArgs) Handies Button4.CLick 
MessageBox.Show(“You Select” + ComboBoxl .Text”) 

End Sub 

How much u add Button : “^juuJI £jjjo c/ld o^gogxxJI jjqUszJI &%2xJ” 

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e 
As System. Eve ntArgs) Handles Button5.Click 
MessageBox.Show(ComboBox1.ltems.Add(ComboBox1 .Text)) 
End Sub 

Exit Button: “(gjukixJI <jjo ^gjidJ” 

Private Sub Button3_Click(ByVal sender As System.Object, 

ByVai e As System. EventArgs) Handles Button3.Click 
End 

End Sub 











Hj~\i'nll JqjjjjuJI (JjOlC QjlJI ^i/SqT 

^joUjj cjnl Jjuaaj' He. (Progress Bar) 

qi& 9 t/LQ _p^2u jjoic jioj. Progress Bar cJj^juoJI JqjjjjuJI 

(juuOA^SlinAH Qjljjjo Olh^ULo jjloqjJ ojoI^IujI jouu jdaoiJI Jqjj_uu <Jlc ojLc 
cjiiJI JqjjjjuJI jcflkS 7 Cjul^j gjOj4XxJI <9 n hull (jTQ jdLsloJI (jciaj £Log J93 
Olrlj^JJI gl joLqIjoJI CiJj (JlO rlSUllll jOlXj (jtL^ (JuuOuJI q/lII jLuuulII (JlO JJLcxj 
JqjjjjuJI Ijcfthu cJUi JUuog (Jlc cdiigljg JqjjjjuJI Jbcxli; (/UI1IU9 

.icTihn^y o^lcl gl ^joIjjJI oia Jbucx^j qjlLolc £.\Aj\ gjoljJI q/lq 



Sun 


[ ii&if/K 
fwvffSr 


Ecs tl 


100% 


Start 


Rests 


0 % 





































































:<9nhiJI 


(JjuOL^jJI djjiJLi jgaJa gjo St3rt jjJI t/ilc jAiJI jdjl> Progress B3r obp qjIdjJ 
6ju0luuuJI obi (/id Hello qjoH js> b i (JjuOdiJI Jlobl olcg bjj. Jl (JAuuf jgjuoJI 
oJLcg .CxogJI (judJ gro b-Sll <jgjg djuau.uJI obi cunJb <jgJ jdtf Labell 
^pp'g Reset jjJI t/ilc jiiiJI fii> Progress Bar bjjjxJI (JJJb <jlo (JjuqpJI o^lcj 
OgJg qjuollujUI obt cunJb ogJ Cabell t/io jgabj Visual Basic cijaJb 

.0% JbuoaiJI douuJ ^inig b-Sll 

djuLoj oojo fii) Gup jjoUjjJI Iba <jw Timer CibgjoJI < dibj IqJppJJLo 
gl djosuxll Jloubl t/ua JLuooiJI ojJLolc cUjI Progress Bar bjjjjuJI gx> dJupuo 

.dpi JJI 

Tlmerl oiigjoJI (jiJLc ^gpjxxJI jiiill pic (jrJliJI ag£JI cijljb jouu 

_ :Reset Start jjJI c/ublg 

Stsrt Button : _ 

Private Sub Button1_Cllck(ByV3l sender As System. Object, 

ByVal e As System. EventArgs) Handles Buttonl.Click 
OTimerl.Start “cxdgxxJI Jjlsujjj” 

End Sub _ 

Reset Button : 

Private Sub Button2_Cllck(ByV3l sender As System. Object, 

ByVal e As System. EventArgs) Handles Button2.Click 
Tlmerl.Stop () “cxdgxxJI ubldjl” 

ProgressBarl .Value = 0 “bjpjudl gid Jjpaill rlajul” 

"labell.Text = "Visual Basic “JjuooUI 6ob| oj in cboJbJI oba jlab|” 
Labell.BackColor = Color.Green “dxxKlI djpb ogJ 
Labell.ForeColor = Color.Brown “ b-sn <jgj jjggj” 
label2.Text = "0%" “odclJI ojp djgiall d+uuuJI” 

End Sub 






























CjlqqxJI (jiLc jq^joJI jiiill Aic (jillill (/ipjopdl jjoJJI ljul^jq 

:Tlmer 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVaL e As 

System. EventArgs) Handles Timerl.Tick 

ProgressBarl.Increment “dbdj jhnm og>lpg kppiJI dip” 

If ProgressBarl.Value = 100 “<JpaiJI Jlxiiil gl bjpldl dip Jloiil iiz” 

Then 

Labell.Text = "Hello t/iag (/ipl dnli dpiuill obi (/id jabt” Hello ” ” 
Labell.BackColor = Color.Cold "djoJLUl dpld (jgJ jjupj" 
Labell.ForeColor = Color.Cray “bdJI ,/gJ jjupj” 

End If 

Label2.Text = ProgressBarl. “JpaiJI djdxxr rlPI djgLoJI dpuill gilp” 
Value & ("%") End Sub 


: (jjjuoLlll (tjnhiJI 


obi 9 Tool Strip joulg^UI k^jjiiu 
Tab Control CjIpqjpJI <jju (JAiill 

t/il n-\nr\ ,/iJLcl (/id pg» </idJI joLsloJI JajpL gs> :Tool Strip /UlgnJI bjpu 
old Ip (jnbiiQ (ILujlju JlggpJI jplp (/id jaip> pir gSJ9 fli; by g| gjolp 
(jiou LaJiid (Jjo (jl op gjoUjPJ oljlp djliou jjigJ (/uJI olildJI qx> o-cgopo 
(po (/ipl i‘ihnr> (/ill JldiiJJI gl CjlogigjQ edio gl ojgo jtuiil gl <-dLo bn-> 
dJld JiJ jlp pnP JUd (P oljlpJI p laipcg pbill p ^gpJI gl pbill 

.lap (glajuo (/pxp pi djllig 
pip (/id /»<">■ pile p ojlp :Tab Control plpJI oLuio p (JdiiJI obt 
p JldiiiLI (jijbv </il (Forms) cjLujLlij (/id .pndxuuug dLuuuu JlggpJI 
(/id (/ipl /bbi Olg^l (jnbvi ^| (/icxjg ULLo q-lliLluJI pdj (/id (/ipl (Jill 
laJg dpjojJI plglll Jild p lap djali olclpl gl .plaio ppj - g.o pUjJI 
(Jilaiuul jD^aJ ppaJI gl /uouOjoJI (gubill jp (pJLdj' gl JJLdj' lau onJld 

011 bill (judJ (/id (Forms) CjLujLluJI qjd pill 





























































































(Jjo (/lie g^jjoJI jxuJI ^JLc (jiJllll ^g^Jl cull^ jolXj 
qJLjlslluj ^JLc 0 i;Kill Oldp| jlolhJJ QjJlxJI jai^jJI Olg^l 


OpenToolStripMenultem (File-Open: 


Private Sub Open Tool Strip Menu ltem_Cllck(ByVal sender As Sys- 
tem.Object, ByVal e As System. EventArgs) Handles Open Tool Strip 
Menu Item.Click 

Forml.Show () “<_ppl oiLLju jlahlJ” 

End Sub 


CLoseProgramTooLStripMenultem (Exlt-CLose Program) 


Private Sub Close Program Tool Strip Menu ltem_Cllck(ByVal sender 
As System.Object, ByVal e As System. EventArgs) Handles Close Pro¬ 
gram Tool Strip Menu Item.Click 
End “0nh.ll 0licJJ” 

End Sub 


Enter Button 


Private Sub Button1_CUck(ByVal sender As System.Object, ByVal e 

As System. EventArgs) Handles Buttonl.Click 

TextBoxl.Text = "Sheikha" “jjJI <_rik: pdl an jauuUI Ida jlahlJU” 

End Sub 


ShowMessageToolStripMenultem (Help-Show Message) 


Private Sub Show Message Tool Strip Menu ltem_Cllck(ByVal 
sender As System.Object, ByVal e As System. EventArgs) Handles 
ShowMessage Tool Strip Menu Item.Cllck 






















MessageBox.Show("Thls Is Help Form ”) 

Show Message) jaj (Help ) ajliJI i/iJLc >djJI ^ic <_/io qJIuuj jl&blJ" 

End Sub 

Tool Strip label4 (Images): 

Private Sub ToolStripLabel4_Click(ByVal sender As System.Object, 
ByVal e As System. EventArgs) Handles Tool Strip Label4.Click 
PictureBoxl. Image = My.Resources.Picturel 

t/iLc JULa (Jjd obiuaJI qjj (JiiiiJI obll qjJIUI daiioJI i/lq ojgjo jlabJJ" 

“(Images) djlA 

End Sub 




jjo& Muiti Lines djU^g jah^Siml 
TextBox (j^jJI £jjjo (jid c/i^uojj 








































^g^jjodl j-QJJI jJLc (jrJliJI ^g£JI ojL^ jouu « tgjluuJI fluhlJI iunjud 

:Enter jpl jiln 

TextBoxl.Text = (‘Name” & vbTab & “Age” & vbTab & “Address”) 
TextBoxl.Text &= (vbNewllne & “Rashid” & vbTab & “23’ & vbTab & 
“Muscat”) 

TextBoxl.Text &= (vbNewllne & “Ameera” & vbTab & “28” & vbTab 

& “Sohar ) 

t/m djuUUIg t/ilglll ojqJLUI qjj clqLujuqj JkidJU vbTab .p^Aiuju :oifi 3 ULo 
(line 2) t/uUJI jJquuJI t/UI JldjuJJLI vbNewllne jo^iiiuujg (line) jJquuJI 

.TextBox auuLQj <jajJI gjyo t/ia 


^jLluJI ^gjabJUl 


Windows Media PLayer ^joUjj 

cJLuluj Jig?.nil (JXQ 









































c/lq qjlzuojjJI jjolgLII qjU^ jouu « (gjLuuJI fluhlJI jmjinny 

:qJIiJI jljjlll ojo 

Load Button : 

63939 joJI gl gj:uA)l olnLo glp| glib gipjojJI jjoJJI Ida jj^iuuju" 


"JJUuo cJU ^pliJI jlaaJI gnb 

If (OpenFlleDlalogl.ShowDlalog = DialogResult.OK) Then 
AxWlndowsMedlaPlayerl.URl = OpenFlleDlalogl.FlleName 

"oclc2uj.nl fij gidJI gjnoll JqjIj g.il; ^gdJI Ida" 


Start or Play Button : 


AxWlndowsMedlaPLayerl.Ct 
controls. playQ 


- “gjiinll (Jjg-u.uJ ^gdJI Ida s >adluijj 


Stop Button : _ 

AxWlndowsMedlaPLayerl.Ct 
controls.stopQ 


Pause Button : 

AxWlndowsMedlaPLayerl.Ct 
pause () 


controls. 


” gj:uibJL) Oiogjo ublibr 






























(Jdiujj djOuja C io^>ll oJjO 

.cdhh (jX> (JJUlJI QjOjSb jaJ 





OldoJboJI 



Jglll 


>^AlujjoJI ojjulijj <ji q oliluJI jLqlIqI I ^joUjj 

:(Form) djuoguujJI 


( Form ) ojjulmJLI Qjo^iiiuuuoJI ( Tool Book ) ,n<^vll 0I93I 

( Label) qjuqujj obi 5 
( Text Book ) <jo j £jpo 4 
( Button ) jj obi 2 










Phnnr- Xnrn.be r: 



































: (Properties ) c jaJln^)l 


: Form oiuLujlLI amid jtuidl 
Background Image 

: Font jj^'Siuinll LidJI 
Time New Roman 

: Font Style kidJI J<m 
Bold 

: Size JodJI 
12 

:Student Details djuauuxJI obi ,jgJ 

White 

: Label qjuouuiJI olg^l g Button jjJI c/ii'bl guild 09* 

Silver 

: ^9^JI djli^ jJLc <jiL Lo oLcIjjo 

(jQill CjIsjjjo (jTQ oliluJI jlsildl ljl 2 u View jj (/lie jdillg ^joUjjJI (JLlszjIjj ole 
.Labell dmumiJI obi <_rui Student Details jlaJdJ (jill oobdlllj TextBox 

.gjolj>dl (gJJLcb Exit jjJI obll jjo! clkicl 

















r 


q/ULUI 


:(/ * r .+) qjuLujq qjlLolc (ji £jU ljLuul^J ^joUjj 


qjuolluj obi IqjJIxJI jcbblll 0I93 (jjo ^jolijjJI IbSi qq£u 
. button(2)jj obi , textbox(3) (jcu £j>jo , LabeL(3) 

text- 9 textbox 1 <_pj (jiajjjo 1 ^joUjjJI 6 ]££. 

(/lq Function "VaL” JI ojU^ £0 JlaalJ box 2 

(joJJI jjjo <jiq QjuLuuaJI QjJbasJI ^jli jLoibJJ ^g^Jl a^Ao 
jobdiujlg ."gjUJr qjIAj (joiAi (jijJI textbox 3 cJIDI 
^gULAJJ Close jjJI oblg ^j'UJI jlabil Calculate j>JI obi 

.^jolijJI c\~\c\r\ 




























a - 1 Calculations 


First Number' 


Second Number:: 2 


Result: 


Exit 


Calculate 
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(-jJllll (ji^UI 


Calculator Form oujuLiJI dJill 


Calculator_Form2 9 Calculator_Form1 primlmll jGuuOuQj 
: QjJliJ! Jalnill oUiIjjo 9 IolSULo JIj ^pLill ^ 9<l l qjIi^ ^jo 

oljaaLo qjDj Jliul jJLc : Calculator_Form1 q-ljuIlLJI c/lq 
oLLcxsdl <jjd cjric j-OJJIg FextBox1,2,3 <jih joloji 9I 

Group Box (Math Functions) jvi 63939 x ^1 djybuaJI 
jJLc FextBox4 (jQjJI £jjjo <jlq Resul ojiaIlII jlsikbl i ni 
.^joUjjJI <jjd 219 AU Exit jjJI joxiiuuyg .Find jjJI <jtJLc jiiill 


first Number: * 

Second Number? ^ 

Jli £rd Number: 2 

Results & 

.Math functions: 

<a .ADD C StFB 


MIL 


DU 




























: Calculator Form2 diLliiJI <jiri 


(jiic jnillg TextBox1,2,3 <jiq joLqjI qjIIj Jliu| ^JLc 
jdIa^S i'iill JliA (Jjo d^jogjoJI qjuIluhJI otdLasJI qjd 
q^uuuJI jlfthl c.qj (Add, Sub, Mul & Dlv Button) jjJI 
Exit jjJI .polling TextBox4 (joiJI gjpo jin Result 
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~\ 





: j-uuJI djcxJtf dJuL<?jO Qjuuoj OAjO JXJjmlJ OlQQjOJI Q3JOJJ 


gf CjLogJb nnllr oJ Lo (J^J imer O-ogjoJI .pivSiiml Lul^jQj 

jjjuJI qjolK QjjLgjQ QJuLOj OJjO 3JA3J LLl^jOjlQ .CjULOgjJI 

JJJU QjoK < ■ I i /ign i ^joUjj AiniV.i JOLO .^jOlijJI (JjlSLUUL)' jJLc 

n^pi^ll jjjuJI qjolK Jliub .pgib of -O^iuuuoJI (jiJLc ^jilg 
123456 a^jpjoJI jjjuJI qjoK ( j <■ I JJLLdlq. (jijlgj 10 (JJJLf) 
cjTJlgj 10 JUb jjjuJI qjqJL^ (Jl6.il qh jDiilujuaJI jib' lilg< 

.^jOUjiJI (CjjgJLllJLQ 
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(jjuuolAJI 



(J^J ^ 9 ^ gl cl> 2 >[ ojIi^ £jo ListBoxApp jDjgnJI jDulOjQj 

lo^gggjoJI jljjJJI <jjo 
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(Jju^LljuJI gi^alll 


ga ta4 WhileConditionApp jajgnJI JQjuOlOj 

: (jTJliJI J<iiiIIi 0^gjo 


joK'SimU Repetition Function ajjlj^iJI dJI^JI iunju'g 
jlahU jogiij ^joUjj iuiiju 0^bgjc/uJI /hile-End While 
jlahl 0jo 0 g 10 qjj djg^uoJI ^I^JJU oIjjo 10 dJLujj 
.OLQgJI (Jjulqj (jio TextBox2 (joill £jjjo c/i-Q 
jljj^J bjijug (jiglmJ 3 jjL&juoJJ (_/rJg. I qjOulq Jl 09^9 
. 20 juo jiijol(a) cLouii 09^ 0^ 9 s cidi^JI 





























































gjluudl 


: Loop For ...Next joljibujub gjoUjj 


£jO Jl&J (/.*.-<+) QjuLulO QjlLolC i'ii JDgiij gJOlijJ JDjuQjQj 
(jiQ ^g^Jl djUb ^jlc qjJIxJI blcijJI \iniig For ....Next _pl a'Si'idI 

: Add jjJI 



g_ag (1) ^^gJL> qjjIj^iII diibJI I^jj 
.jlj^jJI (juo Jgl 
(10) qjjIj^jJI diiJLill (jisniig 

Jlou'9 .jlj^jJI o^JLc edogju (_p jJI 9219 

cjTJtUI 10 cpJi 1 ^>0 aljiclJI 

.(qjuLuulhII qjJLclszJI (jrd 
<J1Q 0JpjQ (_p I Jta^l 

gag) TextBoxI (joiJI £jjjo 
j-QjJIg (qjuLuoJI qjJjcxsJI (jih (JgiJI 
qjlLolsJI jgj\lr\Tm Add jjJI obi (jiki 
Inswon (Jjc»bg qjuLujlaJI 

.ListBoxI Q-oJLoJI i/lq 
jljjJJI (JjO (jOlfiaJI rljgJJI ^inii 
.Clear. Delete. Exit :dJliJI 
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OjoUJI 


: jouj^JI (jljiill j9-luJ zLouLluJJI ^joUjj 


Windows Media jph'Siml JULa q>o oranjj jaS j 
jjoIqIiI cubing cjLluju JIqq.q II ^joUjj q/lq Piayer 

.Qj n oloVnll QjOjOjaJI 




5 ftjfl Jljil iU 
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£UUllJI 



olg^l (jjQjQju c/nJI ielectPictureApp jojg_oJI jcuuoloj 

iqjJUJI ja^aUI 
(Labe ojuauuD' obi 

(Button) jj obi 
(Picture Box) ojgjaJI <ggMn 
(Group Box) ocgnajoJI jlb| 

(Radio Button) jlubill obi 


o QjJl bLdiJI Qn/SY; ^joUjj Qjtb fij 


























OjQjQ jlcfthjj ^joUjjJI (JIQ jtubl obi OpjOp JJ0I9I OjU^ 

/uul jlabl jo jUiaill 0I90I 00 iMc oic 
.^joU>JI JbiSimj 3 JLc Label' qjucxiuiJI obi <jiq ojqjq 

(Integer) olitu £gj qjo Public Variable jo lo jjl&lo (-cup; 
.o^o^joJI jtubJJI obb ocil^in ojgjo jolqj ojAAiJ 

OjQjQ jlabi) (/laojj jX)l QjU^ JOjj (<<) jjJI obi c/LQ 

(jjo down (Jomill cjrJ| top <jaJLcill (jjo <jipill gJUr 60^*19 
dJb ojo^j'g (If Statement) cubjjjjJI &JI0JI iunju JlJb 
<joJLc boAll 21c Picture Boxl djg^iJI (990JL1Q <jlq ojgjo 
(Select Case) &JI0JI ojAu JJJb qjo ^ajjJJI jtubJJI ogbl 
(/lie borJI JJJb (jjo ^joUjjJI JaSiio' ole jgjciJI jl&bl jjyplJ 

.ojg^i (J£j diibajoJI jtubJJI obi 

ojgjo jlabi) i/qjojj pi qjIi^ jaii :(>>) jjJI obi c/lq 
(jjo top (jrJLcIJI c/iJI down JAwIll qjo <jipJJI gJUr 60^19 
laiunju jalpj c/uJI Functions JI90JI <jjuoj pbblujl JlJb 

• (<<) J jJI 6bl (JIQ 
























a LoUlU oJLog a. 1) 

qUI (‘lon g jLuuO 1 





QjOutfJI 



.ja^jluLaluLilg /i<iKrl JU aii laa <jgii 0^ cAiouLi .plidJI i/idg 
Jlg^inlli dLolmal oIsluj ojU'l <^0 Ibou ad aJJJb qjd (jg^J abLig 
JjuocJI gjoLijJI laa </id ( g J cxsXJI goJ dll (ijjjbJI ojIoj QQ^jJ eluuuu 
jjLuj Jb (Jjo dizJUl oaa Jbg . oaasloJIg ojjulUI <'i lnnKil l gd 
(/Lujuu'g jiajug ojjOuLlijlqJI QjjajJIg qjjujLoucJIj (/igdi • qjxojjJI CiLaJ 

Q-CgjOdljO CjluuuJ n^n jill ^ . (_6jJI (jiic Lsubj dJb c/id 
j iqK ill ob LoJIq QjduuucxJI oLogJLsjoJI <Jjo 

.jjpJI cud LoJ jcbsngg ja£j ail I £dj . cglliJI 








: (Books) cjuiUl 

David I. Schneider, An Introduction To Programming Using 
Visuai Basic 2005 . (2006). Publishing by: Person Educa¬ 
tion Inc, Upper Saddie River, NJ07458. Sixth Edition 
P.J.De'itel & H.M.Deitel, Visuai Basic 2008 (How to Pro¬ 
gram). (2009). Publishing by: Person Education Inc, Up¬ 
per Saddie River, New Jersey 07458. Ninth Edition 

: (Internet) cupiDI ^olgx> 

http://www.abahe.co.uk 


http://www.kutub.info 


: cuojojJI olig^doJI / &ju9ji£JJJI cjuIJI 
6gkn nghv-s 2008 dLuuuu Jlggm :<_ili£j| jauul 
Michael Haivorson :cdlgxxJI 
http://www.amazon.com/Microsoft-Vis- cjIi^JI 

uai-Basic-Step/dp/0735625497 
http://marwanvb. :cuanjJI djg^xdl . grilmxll olgp) 

biogspot.com 
http://Vb4arab.com/vb :^ogaJI 
Microsoft Visual Basic 2010 Express :<_ili£JI jauul 
http://aiogharism.biogspot.com :j3jj>ag^JI djg^o 
Learn The Basics In Visuai Basic 6.0 :cjli£JI jauul 

qJUI^lc 3jp Pl^clg cqjJIj 

www.Kutub.info :^ogx> qjd cjUDI JLuopi 

Preiware Association r nk-Mn igi plug (_ju4 

:^oqjo 

(§jjio <j.c cLulu Jlgg.nll jjolijj oLcluJoj (jdiaJ qajqjJLs’j Olagj^juD 


:^ogjo . 

/http://aigoharism.biogspot.com/search/iabei gj^ 








Jldblll <>0 Jx3j jadhj djLLU^JLaJI QjjAJI q/LQ QHj 
jodLi j .q-Ojs*joJI Ljlml^lg joJLaJI (ji_Q oL^Juo :xoj LjlujuJIg 

j9ngnV iq jodlsdl Oji^Lc UrLul QjlQ (JJULOlJu 0J-UUUO (JjOjjinA) 


jogJLsJI (jiJLc JjcxaJ l:i5lJg <6£mg ;xoj jOLoklr 

gjAAoll Ljbdl (Jjo 6j-6gLoJI (JLjI^jJI (JjulqUu qjJLuuuo n qjjJqj 


<jT_Q cLuaj clcjjjuu jg hij III go qjd jodlsdl .jldlill o^LaLuuuog 
(jl I40I9 0^9 ojlJqjjL^JJJIq qjuolqjJI LogJgjbiil ollbo c olio a 
Loulg JliiJIg JLinJU <jjuuJ qj! v\Jlg jQkViJI ablgjoJ <jt2_ljuu 
! jjuls^xJI &ir\j (jj Libaj ISLOg .(Jbasdlg jgJLslIIj 


c/uLojuJI o 2 lq 

(jjuuujjl 










n^n ji jaJU: (j\& /)<r lvnlQ jcbj'jslol liokvim l iii ^jgbj 0^ 
.objbhl (Jjo ( fjn^ill Q CjLoglgjoJI (pi ojjxxJg . dLuuuu Jl g^inl l 
www.ev-center.com ojjjuJJI <_nJLc Laogjo Igjgj 
giilgx) (jiLc LutiLuuo (jro jcbjUkl<2Jg jcbjljl odjii U^smju Lob 
J.iiju.1.i.oJl_g ojjjo# jauugJI jxc t/LcloubJJI Jjalgill 
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c/iplll lillnJgjo 





jdUI I- c/LQ 


gjug^jlll LQji3l 
jobi |- 



jTivI j^iii LQjJiDl 
joUI I* (JLQ 



cjiU c/ij-ujljJI eojiai 
JOUI I* (JLQ 



•< j<n > (.tib clnlg) QjJj .. ogiuLill d^.ojj plali cuJLc (j^vSiii * 


jjQ^ c CUllJU 


pic 13 yosij dnjojJI pJai | ooiuigjiuo jnmgjo | 
(jjj^lmJI (_DjcJI gnc ljqjjuLiJI pi vSimU l^j | eJgj (jj-unJI (juiugc | 
olglu.) 9 yoso gag <_ig_uub oldlg oloal | jjugj d^iiii ^jjuujugx) | 


U-‘i-i ,o J—ju * 
^jjujdgj eJjlo * 
t/i—uuijgj eJb * 


. jldplll i/to daLoJIg 0 jjoJI qc Igi^j UoJlg ^jLill sbdJI gl djjAiaJI qq^Ia) Igjgii pJ 

pJlal jjgJJJIg jbnvll ddj>h i/ia , (jjuUJI o^rlujuog djJlmjJJI Quo^dJ jjaaJI daJ i/ta clojojjJI 
. JLoJI (jjo jib 11 cJJLoJ (ji gl pJlsJI jjlsj <jl O^jl rig m ! cJjaci duo lob Iojj <jl (. Q.;g pgaJI 

iP-Q ^>9 j JJg . Qjj-u'jliJI QjO^dJ ^jOjjjO (jjyJJLo 10 pJlaJI gUruixi dc^ldJI OlgimJI jjjuaJI ji-O 

. ^jOjjJ Uj liaci . Ubll^J AllaJI • Ub JjO>jjo lqJI 400 i/igiu pJlaJI 



dLuJUj j Q7»nl l £2 jO n^n jill OljlaLO jals&j 0 jjOuJ 































